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REPORTAGENS 

Freeway, mais um 
acessorio para a linha CP 

Color Clube 



PROGRAMAS 

Calendario Personalizado 
Transforme seu CP 400 num charmoso professor de frances 




O professor ideal 



jnformatjca. 



CP 200 S e o parceiro 
ideal dos iniciantes. 

UQIO OS I TllClcinTwO desenvolve as primeiras 

r*f\ mi inrlr% Ho li(?6es em com P uta ?a°- 

l\J IUI IKJKJ UC Qualquer crianca pode utiiiza 

lo para resolver tarefas 
escolares ou simplesmente 



curtir os mais divertidos jogos 
de video-game. 
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EDITORIAL 



A 



Feira Internacional de Informatica 85 cumpriu sua missao. Revelou para 
a sociedade todas as opgdes e tendencias tecnologicas para o mercado, 
demonstrando as solugoes e fungoes possi'veis e viaveis que a 
informatica pode possibilitar para todas as 
atividades profissionais, educacionais, domesticas e de lazer. 
Mais do que isso, demonstrou o amadurecimento tecnologico e cientffico 
no desenvolvimento industrial e o da propria comunidade usuaria. 
Porem, o futuro da informatica no Brasil vai alem do simples sucesso 
institucional ou comercial alcangado neste evento. Hoje, mais do que 
nunca, sao fundamentals a compreensao da importancia da soberania da 
politica de defesa dos valores nacionais e o justo apoio as universidades 
e instituigoes de pesquisas — pois este e o caminho para o efetivo 
desenvolvimento da tecnologia nacional. 

Mais uma vez, o grupo Prologica assume a vanguarda desse setor, 
abrindo espago para a pesquisa e solidificando a relagao 
industria/universidade, com o convenio Prologica/Universidade de Sao 
Paulo para o desenvolvimento de supermicros — apostando no trabalho 
dos pesquisadores das universidades e no futuro da informatica no Brasil. 



Carlos Roberto A. Gauch 
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A Fcira Internacional de Infor- 
matica 85 cumpriu sua missao, 

revelando para a sociedade to- 
das as opcoese tendencias ido 
mercado de informatica. Nas 
paginas4,5,6e7aspr.ncipa»s 

cstrelas do stand da Prologica. 



REPORTAGEN 



Freeway — Mais um acessorio para a 

linha CP 15 

CP 400 Color, uma paixao que virou 

clube " 




No Encartc Especial de Programas, um 
Calendario Personalizado para os usua- 
rios do CP 300 e CP 500, tres progra- 
mas educacionais para voce transfor- 
mar seu CP 400 Color mini charmoso 
professor de Frances e a tilt ima parte da 
listagem em Basic do programa Trino- 
mio do 2? Grau, para o CP 200. 
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VM Consuliorin de Sistemas 
Oferece os seguinlcs cursos: Basic; 
dBase II: Louis l, 2 e 3; Supercalc 
II. Wordstar e Basic Infantil. Mais 
informacoes: em Sao Paulo, id.: 
(Oil) 66.9233/825.2708; no Rio de 
Janeiro, iel.: (021) 239.1345. 

Senac Inforraaiica — Oferece men- 
salmente cursos de programacao e 
operacao de computador para em- 
presarios, executivos, profissionais 
liberals, secretarias, redatoresejorna- 
lislas, administradores, economistas, 
estatfsticos e contabilistas, estudantes 
e profissionais de todas as areas. 
Mais informacoes podem serobiidas 
pelo telefone (Oil) 256.5522, ramal 
460. O Senac Inl'ormaiica fica na 
Rua Dr. Vila Nova, 288 — 5? andar 

— Sao Paulo — SP. 

Banco de Dados — Metodologia de 
ProjetO de Sistema em Banco de Da- 
dos — Data: 9 e 10 de dezembro. I i > 
cal: Inierlec — Av. Paulisia, 243° 
9? andar — Sao Paulo — SP — 
id.: (Oil) 259.2055, ramal 319. 

Grailcos — Aplicacdes Comercials 

e Administrate as Data: 5 de dc- 
zembro. Local: Intertec — Av. Pau- 
lisia, 2439— 9? andar — Sao Pau- 
lo — SP — Id.; (01 1 ) 259.2055. ra- 
mal 319. 

Projacs I — Basico Sistema de Con- 

Irole e Analisu de Projelo — Daia: 
2 a 4 de dezembro. Local: Intertec 

— Av. Paulisia, 2439 — 9? aiulai 

— Sao Paulo — SP — id.: (01 1) 
25V. 2055. ramal 319. 



dBase II — Daias: 9 a 13 de de/cm- 
bro; 16 a 20 de dezembro; 6 a I () de 
Janeiro; 13 a 17 de Janeiro; 27 a 31 
ilc Janeiro; 3 a 7 de fevereiro; 17 a 
21 ilc fevereiro e 24 a 27 de feverei- 
ro, Local: Dalalogica — Av. Pan 
lisia. 2028 — 16? andar — Sao 
Paulo — SP — (el.: (01 1 ) 283.0355. 

dBase III — Datas: 2 a 6 de dezem- 
bro; 16 a 20 de dezembro; 13 a 17 



ie Janeiro; 20 a 25 de Janeiro; 27 a 
31 de Janeiro; 3 a 7 de fevereiro; 
17 a 21 de fevereiro; 24 a 28 de fe- 
vereiro. Local: Datalogica — Av. 
Paulisia — 2028 — 16: andar — 
Sao Paulo — SP — id.: (011) 
283.0355. 

Framework — Daias: 2 a 6 de de- 
zembro; 6 a 10 de Janeiro; 3 a 7 de 
fevereiro. Local: Datalogica — A\ . 
Paulisia, 2028 — 16? andar — Sao 
Paulo — SP — id.: (01 1) 283.0355. 

Sao Paulo Computer Institute — 

Oferece os seguinies cursos para o 
mes de dezembro: Introducio a Mi- 
croinformalica: dias 2 e 3, das 8:30 
as 17:30. Preco 35 ORTN's. Inlro- 
ducao ao dBase II (Inlensivo): dias 
12 e 13, das 8:30 as 17:30. Preco: 
35 ORTN's. Programaudo em dBa- 
se II: dc9 a 11, das 8:30 as 17:30. 
Preco: 50 ORTN's. Introduciio ao 
Lotus 1-2-3: dias 5 e 6, das 8:30 as 
17:30. Preco: 45 ORTN's. Lotus 
1-2-3 Avancado: dias 13, das 8:30 as 
17:30. Preco: 25 ORTN's. lnlrodu- 
cao ao dBase III (Inlensivo): dias 2 
a 5, das 18:00 as 22:00. Preco: 40 
ORTN's. Programando em dBase 
111 (Inlensivo): dias 18 e 19, das 8:30 
as 17:30. Preco: 45 ORTN's. Inlro- 
ducao ao dBase III: de 2 a 4, das 
8:30 as 17:30. Preco: 60 ORTN's. 
Sistema Operational MS-DOS: dias 
11 e 12. Carga horaria: 16 horas. 
Preco: 45 ORTN's. Redes Locals 
de Microcomputadores: dia 20. 
Carya horaria: 20 horas. Preco: 25 
ORTN's. O Microcomputador na 
Kslralegia e no Planejamenlo Em- 
presarial: dias 16 e 17, das 8:00 as 
18:00. Preco: 70 ORTN's. Planeja- 
menlo e Deeisao Ulili/.ando Banco 
de Dados Piiblicos: dia 1, das 8.00 
as 18:00. Preco: 35 ORTN's. O Mi- 
crocompulador na Eslralegia e no 
Planejamenlo de Markeiing: dias 9 
e 10, das 8:00 as 18:00. Preco: 80 
ORTN's. Mais informacoes podem 
serobiidas peloid.: (011)883.0355 
ou na Avenida Reboucas, 1669 - 
Sao Paulo — SP. 
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Cirandao no CP 400 



No Ultimo numero da revisla Gera~ 
quo Proldgica conheci o novo CP 400 
Color II. Gostaria de saber se & possi- 
vel o acesso ao projeto Cirandao, da 
Embratel, atrav^s desle computador. 
Marco Auritto Spohn — 
Girud — RS 




Caro Marco, o CP 400 Co- 
lor II possibilita o acesso a qualquer 
banco de dados, inclusive o Cirandao. 
Para tanto, voce precisa somente de 
urn modem, telefone, software especi- 
fico (desenvolvido pela empresa) e ins- 
cricao na Embratel. Boa sorte! 



POKES 

Assino a revista Geracao Proldgica 
e gostaria de comunicar-lhes o quanto 
estou satisfeito com ela. Possuo urn 
CP 400 Color e adorei aqueles coman- 
dos POKEs publicados na GP 13 e a 
Planilha Eletrdnica publicada na GP 
12. Gostaria de pedir a voces que, se 
possivel, publicassem um jogo de si- 
mulador de" voo ou um de carate. Su- 
ponho que esses programas sejam fei- 
tos em linguagem de maquina (tor- 
nando assim diffcil sua publicacao) e 
agradeceria se voces me dissessem se ha 
cartuchos ou fitas a venda com esses 
jogos e onde posso adquiri-los. Gos- 
taria de saber ainda se ha algum co- 
mando que permita usar em alta reso- 
lucao todas as cores juntas. Tenho cer- 
teza de que poderao me auxiliar. 
Joao P.Lunardetti — S. Andre" — SP 

Caro Joao, na GP n? 14 publicamos 
uma sene de software-houses (e respec- 
tivos enderecos) onde voce" podera en- 



contrar os jogos que Ihe interessam. 
Quanto ao comando para alta resolu- 
cao no CP 400, informamos que exis- 
te um modo semigrafico que opera em 
oito cores, com utilizacao de POKEs. 
No entanto, este metodo € altamente 
sofisticado, exigindo uma pesquisa 
mais elaborada para sua explicacao. 
Aguarde uma materia a respeito nos 
pr6ximos niimeros. 



Jogos para CP 300 

Prezados senhores, tenho um com- 
putador CP 300 e sou assinante da re- 
vista Geracao Proldgica. Desde o 
lancamento do CP 400, esta revista 
nao tem publicado aplicativos, jogos 
ou cursos para o CP 300. Isso me pre- 
judica, bem como a todos os usuarios 
que possuem o mesmo equipamento. 
Gostaria de ter mais material para o 
CP 300 atravds da GP. Peco ainda que 
me orientem com relacao a cursos de 
programacao adequados a minha ida- 
de e formacao escolar (7? s£rie do 1? 
Grau). 

Daniel Alberto Vaena — 
Rio de Janeiro — RJ 

Companheiro Daniel, seu protesto 
esta registrado. Mas, apesar de pouco, 
temos publicado sempre informacoes 
e programas compatfveis com o 
CP 300 e CP 500. Neste numero, por 
exemplo, alem de informacoes tecni- 
cas, vocS tem uma listagem em Basic 
para elaborar seu pr6prio calendario. 
Quanto aos cursos, consulte a nossa se- 
cao Agenda ou o Senac Informatica 
do Rio de Janeiro. 



GBASIC para CP 500 

Venho acompanhando esta revista 
desde o seu primeiro numero e estou 
muito satisfeto com suas materias e 
programas, al6m do espaco que voces 
dio aos leitores. Gostaria de saber se 
a placa de alia resolucao do CP 500 
necessita de algum software para ser 
utilizada. Tambfm gostaria de saber 
como ativar o modo grafico ponto a 
ponto da impressora P 500. 
Dennis M. Laguna—Dourados — MS 

Caro Dennis, a empresa que fabri- 



ca a placa de alta resolucao para ser 
acoplada ao CP 500 e a PSI — Proje- 
to e Servicos em Informatica Industria 
e Comeicio Ltda. — , que fica na Ave- 
nida Pavao, 346 — Indian6polis — SP 
— tel.: 533.0120 ou 533.0112. Informa- 
mos ainda que o sistema operacional 
£ o mesmo do CP 500, porem para 
programar em AR voce tera que adqui- 
rir o software GBasic. Quanto ao mo- 
Jdo grafico ponto a ponto na 
impressora P 500, para ativa-lo vocS 
devera digitar a seguinte instrucao: 
LPRINT CHR$(27); CHR$(37); 
CHR$(48). Para o avanco da linha a 
instrucao a ser digitada 6: LPRINT 
CHR5(10) ou LPRINT CHR$(13). Pa- 
ra sair do modo grafico ponto a pon- 
to a instrucao e: LPRINT CHR$(27); 
CHR$(13). 




Cortesia I 



Os nossos agradecimentos pelo per- 
manence esforco na nobre missao de 
informar e o reconhecimento pela con- 
tribuicio efetiva como instrumento e 
garantia do desenvolvimento. 
Um abraco amigo de 

Maia Farina — Assessoria 
Empresarial — Sao Paulo — SP 



Cortesia II 



Son assinante da revista Geracao 
Proldgica e estou muito feliz em po- 
der fazer parte das informacoes pres- 
tadas pela GP. Espero que voces 
continuem no pique de fazer sempre o 
melhor para n6s, leitores. 
No comeco eu estava meio inseguro 
com a revista, mas agora ela esta sen- 
sational. 

Continuem, pois tenho certeza de 
que nao i sd eu que est£ adorando a 
GP. 

Mauro Sergio Franco da Costa — 
Campinas — SP 



GERACAO PROL6GICA 




A Feira Internacional de Informati- 
ca 85 foi o maior acontecimento politi- 
co, institucional e comercial do setor. 
Tanto que o vicc-presidente Ulysses 
Guimaraes, na condicao de presidente 
interino (Jose Sarney estava na ONU no 
dia da abertura da Feira), onze minis- 
tros, o govcrnador do Estado de Sao 
Paulo, Franco Montoro, o prefeito da 
cidade, Mario Covas, e varias outras 
autoridades participaram da solenida- 
de de abertura do evento. O proprio se- 
nador Fernando Henrique Cardoso, 
presente na comitiva presidencial, ao 
comentar a importancia do apoio a in- 
diistria nacional de computacao, lem- 
brou que, dos stands visitados, tinha 
notado que o unico a levantar bem alto 
a bandeira RKSERVA DEMERCADO 
tinha sidoo da Prologica. "Umato po- 
litico oportuno, frente aos liltimos 



Carlos Roberto Gauch, vicc-presidente da Prologica, entrega um 
CP 400 para Ulysses Guimaraes, presidente interino. 
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acontccimentos" (ataquedo presiden- 
te dos Estados Unidos, Ronald Reagan, 
a politica brasileira de rescrva de mer- 
cado), afirmou o senador. 

Mas a Prologica foi alem da conduta 
politica, trazendo para os 480 mctros 
quadrados de seu stand a comunidade 
de informatica para participar dos 
avancos tecnologicos conquistados pela 
cmpresa cm toda sua linha de compu- 
tadores pessoais e profissionais — a 
mais completa do Pais, abrangendo dos 
equipamentosdeusodomestico, como 
o CP 200, aos sofisticados 16 bits, co- 
mo oSP-16. 



SP-16 e CP 400 Color, 
as cslrclas da Feira 

Para demonst rar a eficiencia do SP- 1 6, 
a Prologica colocou a disposicao dos vi- 
sitantes um super SP, cinco vezes maior 
do que o tamanho padrao, acoplado a 
um telao de 2 x 1,5 metros, fornccendo 
informacoes gerais sobre a Feira, sobre 
a cmpresa, alem de demonst racocs de 
aplicativos e jogos. 

Mas se o super SP-16 foi o sucesso 
profissional da Feira, a linha de com- 
putadores pessoais foi a grandc cstrela 

GERA?AO PROLOGICA 



REPORTAGEM DE GAPA 




A CP realizou 
diariamente 
sorteio de 
computadores 
em seu stand. 



paraosmilharesdcvisitantesdos/«/;<-/. 
Com a participacao de imimeras 
software-houses crcdcnciadas, foram 
colocadas a disposicao dos usuarios to- 
das as possibilidades do CP 200, CP 400 
Color II, CP 500 e a impressora P 500. 



(J CP 400 Color, com scu novo tecla- 
do profissional, dcmonslrou sua poten- 
cialidade com varios soflwarcs aplica- 
livos, utilitarios"e jogos, scndo que as 
grandes scnsacoes foram os programas 
Color Max e Digitalizador, na area de 
sof l ware-houses, os acessorios e perife- 
ricosConversorSerial;eComutadordc 
Saida Serial, para o CP 400 Color, e o 
TLX-500Sistema Micro-Telex, para o 
CP 500, na area de hardware-houses. 




COLOR MAX, o programa 

que transforma o CP 400 

em um artista 



Color Max e um programa grafico al- 
lamente sofisticado, com recursos en- 
contrados anteriormenle apenas em 
cquipamentos maiores e de maior cusio. 
Ele pcrmite aos usuarios do CP 400 Co- 
lor as mesmas facilidades de uma pran- 
cheta de desenho, tais como tracado de 
linhas livres ou retas, circulos, elipses, 
quadrados, pintura em 60 cores c pa- 
droes diferentes — e tudo isso usando 
apenas o joystick. 

Mas o Color Max foi alem da pran- 
cheta, com suas funcoes exclusivas de 
zoom parcial de tela, que pcrmite o tra- 
balho ponto a ponto para a correcao de 
erros e rctoqucs, de spray, que produz 
efeitos de focos de luz em objetos, de 
edicao parcial, que possibilita a dupli- 
cacao de partes opcionais da tela, a edi- 
cao e a combinacao das cores e padroes. 

Todas essas possibilidades sao viaveis 
apenas com o uso do joystick , que con- 
trola uma pequena seta que pode andar 
por todo o video na escolha das funcoes 
de lapis, borracha, pincel e spray, en- 
tre outras. O mais importante e que as 
telas sao completamente independen- 




tes, podendo ser chamadas por outros 
programas e armazenadas em disco ou 
fita. Este programa foi descnvolvido c 
produzido pela Novatec Indiistriae Co- 
mercio, do Rio de Janeiro, e esta sendo 
comercializado pela Medical Color 
Soft. 

DIGITALIZADOR, 
o editor de imagens 

Tambem fez sucesso o prototipo do 
Digitalizador — um hardware, acom- 
panhado de um software (em fase de 
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REPORTAGEM DE CAPA 



testes), que permite captar imagens gc- 
radas por uma ciimara de TV on video- 
cassete c transforma-las em informacao 
biiuiria para a tela de alta rcsolucao do 
CP 400. At raves desta operacao, voce 
podc manipular a imagem de qualqucr 
forma, como impressao, transforma- 
coes e cdicoes parciais ou complctas. 

HARDWARE-HOUSES 

A potencialidade da linha de eompu- 
tadores pessoais da Prologica foi de- 
monstrada tambem com aparticipaeao 
de fabricantesdeacessorios, perifericos 
e suprimentos. A Microequipamentos, 
porexemplo, apresentou todasua linha 
de cabos, software e perifericos — es- 
tcs liltimos voltados para o CP 400 Co- 
lor: o Conversor Serial Paralelo, que 
convene a saida serial do computador 
em saida paralela, e o Comutador de 
Saida Serial, que permite duplicar a sai- 
da serial do CP 400, para a uiili/acao 
de dois perifericos seriais. 

CP 500, 
o computador que d urn telex 

O microcomputador CP 500 foi cha- 
mado de "Horn Bril" da informatica 
na Feira.pois apresentou mil e uma uti- 
lidades atraves de seu podcroso hard- 
ware, vasta biblioteca de software e va- 
rios perifericos. Agora, alem de cum- 
prir com eficiencia qualquer tarefa que 
voce imaginar, ele tambem podc ser um 
vcrsatil telex, atraves do TLX-500 Sis- 
tema Micro-Telex, desenvolvido pela 
Data Comercio Industria e Reprcscnta- 
coes. Com este equipamento, o CP 500 
permite que voce tenha um sistema de 
microcomputador operando tambem 
como telex com rapidez, cconomia e sc- 
guranca. O TLX-500 e uma interface 
aliada a um software, que transforma 
os sinais ASC em BAUDOT c vice- 
versa, fazendo com que o computador 





passe a operar na rede international e 
national de telex. 

Dentre as muitas vantagens que este 
sistema, aliado a linha de computado- 
res com tecnologia Prol6gica, oferece 
a automacao de escritorios, podemos 
destacar as seguintes: facil manuseio e 
instalacao, recebimento automatico de 
mensagens, conexao com a rede nacio- 
nal e mundial de telex, possibilidade de 
formatacao e correcao de textos antes 
de serem transmitidos c outros recursos 
do editor de textos, multiendercca- 
mento/mala direta via telex, atendi- 
mento de chamada, ligando c desligan- 
do automaticamente, e processamento 
direto de dados recebidos via telex. 

Este sistema podc ser conectado ain- 
daasredesRENPAC, VIDEOTEXTO, 
ARUANDA, D1SQUEBOLSA, CI- 



RANDAO, ou outros bancos de dados 
em operacao. 

Para Fabio .Vlcndia, diretor de ope- 
racocs da CP Compuladorcs Pessoais, 
a Feira vcio acclcrar a informatizacao 
da sociedade, com o conhecimento e a 
multiplicacao das solucoes que possibi- 
litam os computadorcs. 
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stand da Prologka apresentou toda a sua linha 
e foi um dos mais visitados na Feira. 



Color Max e 
Digitalizador, 
os editores 
de imagem 
mais famosos 
do mundo. 



• 



P 




Prolo 



«•'«• e Prodesp 



A Proldeica roan 
U e ' fderdc ^d^eZ SU J ,p ° S| ^ 

Peri «rfco S , msZ ad ^' Pameatos l ' 

fornw cr82micror -'. Ae,npresa vai 
- SP- 16 _ , «£* - C "'W Sisrema 700 

Aa «»«:»ura«„ , ' ' m "OKT. Vs . 
5, om a Presenfa , / "l qu i l '""«« 
? a " ch .Wce.ni5dJniS r1 ^ ,< " ,,t - r '» 
***UbahS r-! ,ro ' ,i « it ' a .e 



Fabio Mendia, diretor da CP Computa- 
dores Pessoais. 



GERACAO PROLOGICA 




TABELA DE ENDEREQOS 

Se voce e urn programador criativo, aproveite esta dica 
para desenvolver uma scrie de aplicacoes para o seu 
CP 400,.utilizando esta simples tabela de enderccos, cujo 
conteudo indica que tecla foi pressionada. 



Lndotepo 






Teclas 






338 


® 


H 


P 


X 





8 ENTER 


339 


A 


I 


Q 


Y 


1 


9 CLEAR 


340 


B 


J 


R 


2 


2 


BREAK 


341 


C 


K 


S 




3 




342 


D 


L 


T 




4 




343 


E 


M 


U 




5 


— 


344 


F 


N 


V 




6 




345 


G 





W 


Espaco 


7 


/ 


Conteudo 


254 


253 


25! 


247 


239 


223 191 



Se nenhuma tecla for pressionada, o conteudo de todos 
os enderecos sera 255. Para voce ter certcza de que tudo 
esta ccrto, confira a tabela com o seguinte programa: 



10 PRINT iR 0,;:FOR X = 338 TO 345:PRINT PEEK(X):NEXT:GOTO 10 



| |© I 4QAO EM DISCO 

Uma diivida que muitos usuarios do CP 400 dcvem ter 
refere-se ao modo como se deve proceder para ler um pro- 
grama em linguagem de maquina, que esta gravado em fi- 
ta cassete, e gravd-lo corretamente em disco usando o 
comando SAVEM, onde devem ser fornecidos os endere- 
cos de inicio, final e execucao do programa. Para obte- 
los, primeiramente carrcguc o programa gravado em fita 
com o comando CLOADM. 

A seguir, use as seguintes instrucoes: 



INICIO PRINT PEEK(487)"256+ PEEK(488) 

FINAL PRINT PEEK(126)'256 + PEEK(127)- 1 

EXECUCAO PRINT PEEK(157)'256 + PEEK(158) 



Salve o programa em disco com a instrucao: 
SAVEM"nomearq", inicio, fim, execucao 

Dai em diante, basta carregar o programa do disco para 
a memoria com LOADM e coloca-lo em funcionamento 
com EXEC. 

Sidnci Stifelmann 



NOVAS PERFORMANCES 
PARA DIRETORIO E 
I DO CP 500 



Os usuarios do CP 500 
que utilizam o DOS500 ja 
devem ter encontrado difi- 
culdades ao pedir o dirctorio 
de um disco que contenha 
uma quantidade razoavel de 
programas e/ou arquivos. 

A dica abaixo melhora o 
comando DIR, garantindo 
que ele mostre os arquivos 

do diretorio no formato normal, mas apenas uma pagina 
por vez. Se houver muitos arquivos, ao completar uma tela, 
a listagem sera interrompida, a mensagem "pressione 
ENTER para continuar" sera emitida e o micro ficara 
aguardando que o operador informe se deseja continuar 
a listagem; e, assim, sucessivamente, ate que todos os ar- 
quivos existentes no disco tenham sido apresentados. 

Para conscguir esse efeito, devemos executar as seguin- 
tes alteracoes no Sistema Operacional: 




PATCH -6 (ADD = 61 1 1, FIND = 0D000O.CHG = 202003) 

PATCH '6 (ADD = 616D,FIND = CD8861B7C8FE40.CHG = 3A8O3FD620C8CD) 

PATCH -6 (ADD = 6174.FIND = 2806C547AF78C1.CHG = CF60CDC90 1 1 



Uma outra dica que pode ser bastante litil: alteracao no 
sistema operacional com relacao ao modo como este acei- 
ta os comandos. Esta conduta permitira que, estando em 
"DOS500 Alivo" e pressionando a tecla ENTER, o ulti- 
mo comando DOS digitado seja repetido automaticamente. 
Esta alteracao permitira ainda que comandos DOS sejam 
digitados indiferentemente em letra maiiiscula ou minus- 
cula. Outra vantagem e que o SO ignorara todos os co- 
mandos DOS que iniciem com um ponto (.). 

Apesar de parecer iniitil, existe uma aplicacao para este 
efeito: quando. estamos eriando um arquivo BUILD, ele 
e executado automaticamente pelo Sistema Operacional. 

Como um comando precedido de um ponto nao e in- 
terpretado, a mensagem aparecera na tela e podera servir 
de comentario para o usuario, alem do que se podera es- 
crever o que se desejar, pois o Sistema Operacional nao 
verifica a sintaxc do que e escrito apos o ponto. 

Para sc conscguir esses tres efeitos, deve-se fazer a se- 
guinte alteracao no Sistema Operacional: 



PATCH -0 (ADD = 4CD1.FIND = 204E53.CHG = 4E530D) 

PATCH -1 (ADD = 4E32,FIND = 2125421 12642,CHG= 180B773E1 BCD) 

PATCH ■! (ADD = 4E38,FIND = 013F003600EDBO,CHG = 3300CD1B02186F) 

PATCH "1 (ADD = 4E9D.FIND=E5C52A,CHG = C3BB4E) 

PATCH "1 (ADD = 4EA0.FIND = 2040E548060009,CHG = 1A28917EFE6138) 

PATCH 'I (ADD = 4EA7,FIND = 014000B7ED4222,CHG = 03D620772310F5) 

PATCH "1 (ADD = 4EAE,FIND = 20403E1ECD3300,CHG = D1E17E12FE2ECA) 

PATCH "I (ADD = 4EB5,FIND=E1222040C1E1,CHG = 4A4EFEOD288F) 

PATCH -1 (ADD = 4E9B,FIND = 28ADC3BB4E,CHG = 11D44CE5D5) 
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Uma das coisas mais importantes ao se trabalhar com o microcomputador e, 
sem duvida, o metodo. Nao se pode pensar em tirar o mdximo proveito de uma 
ferramenta tao sofisticada, sem que se tenha urn metodo eficiente para isso. Por 
metodo, entendemos todas aquelas providencias que devemos tomar e etapas que 
devemos cumprir para atingir nossos objetivos, quer seja introduzindo, editando, 
conferindo ou executando urn determinado programa. Nesse artigo, apresentamos 
urn utilitdrio para agiiizar a conferencia das listagens, utilizando a velha e infalivel 
prova dos noves. 



Antes de comecar a 
explorar os recur- 
sos de seu com- 
putador pessoal, 
quero fazer uma 
pergunta: como e 
que voce vai saber 
se copiou tudo cer- 
to, sem ter que re- 
visar letra por Ie- 
tra todo o texto digitado? Voce tern 
alguma ideia? Nao? Nao tern impor- 
tancia: Paulo Addair, em seu livro 
Indo Alem com o CP 400 Color, ja re- 
solveu este problema para nos, desen- 
volvendo o programa PROVA DOS 
NOVES — Para Conferir Listagens. 
Certos crros de digitacao sao mui- 
to dificeis de detectar. E necessario um 
metodo completo para se decretar: "A 
linha 12434 esta errada!" 

No caso de listagens, o programa 
PROVA DOS NOVES cumprc o seu 
papel, conferindo o trabalho do digi- 
tador. Na vcrdade, a antiga prova dos 
noves, em computacao, se transforma 




•••••• 



em prova dos 255, que e o mesmo processo, so que apli- 
cando a base numerica do computador: o byte. Como em 
aritmetica "humana" a base e dez e a prova e dos "no- 
ves", se usarmos o valor maximo do byte, 256, a prova 
devera ser dos 255. 

Como voce deve saber, toda a informacao armazenada 
no micro esta representada por valores numdricos na me- 
moria, representados pelos bytes. Isso vale tambem para 
o programa, que fica codificado numa determinada parte 
da memoria destinada so para ele. Assim, se queremos ter 
a prova dos noves de um programa, basta somarmos os 



conteudos na memoria c, toda vez que se ultrapassar 255, 
subtrairmos esse valor do resultado. No final, teremos um 
valor representative de cada linha e de todo o programa. 

PROGRAMA 

Alem de calcular e mostrar a prova de todas as linhe 
este programa fornece a prova dos noves para cada grupo 
de dez linhas. Nao ha restrigao quanto a complexidade das 
linhas, podendo estas terem multiplas instrucoes separa- 
das por dois pontos. A linica restrigao e quanto a nume- 
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SUPORTE 



racao das linhas, que nao pode exceder a 62999, pois a 
rotina da prova comeca em 63000. 

Para assegurar a exatidao de suas listagens, siga os se- 
guintes passos: 

1 . Certifique-se de que o seu programa esta rodando sem 
problemas. 

2. Acrescente a rotina da prova dos noves, digitando-a no 
final de cada programa. 

3. Chame a rotina com o comando RUN 63000. 

4. Anote os valores para cada linha e/ou os valores para 
os blocos de dez linhas, como aparccem na tela. 

5. Insira no final de cada linha o valor corrcspondente a 
mesma. Use para isso a instrucao EDIT (subcomando X), 
colocando um apostrofo seguido do valor da prova ate 
aquela linha. 

Esse procedimento nao deve ser adotado em linhas com 
instrucoes DATA. Nesse caso, e melhor fazer o proprio 
programa realizar uma soma dos valores na instrucao 
DATA e verificar ao final da leitura dos mesmos. 

Com os valores em maos, identificam-se as linhas onde 
houve erro de digitacao, corrige-se atraves de EDIT e 
torna-se a rodar a rotina da prova (RUN 63000). Repete- 
se este processo ate nao encontrar mais disparidades entre 
a listagem original e a digitada. 

Esse procedimento permite um metodo de depuracao 
bastante pratico, principalmente quando o programa pos- 
sui uma listagem muito longa ou complexa. Voce nao pre- 
cisa necessariamente usa-lo, podendo ate — a partir dele 
— chegar a um outro, ainda melhor! 



Rotina da Prova dos Noves 

63000 CL=PEEK<25)*256+PEEK<26) 

63010 CLSsBN=BN+l:BT=0sPRINT" LI 

NHfl"r"PROVR":PRINT 

63020 FOR 1=1 TO 10:LN=PEEK<CL+2 

)*256+PEEK<CL+3) 

63030 IFLK63000 THEN PRINTLN,:N 

L=PEEK < CL ) *256+PEEK ( CL+1 ) : ELSEI = 

11:G0T0 63060 

630M0 FOR J=CL+2 TO NL-1:IF PEEK 

(J)=58 RND PEEK(J+1)=131 THEN J* 

NL : ELSE CS=CS+PEEK ( J ) : IFCS>25MTH 

ENCS=CS-255 

63050 NEXTJ:PRINTCS:CL=NL:BT=BT+ 

CS 

63060 NEXTI:IFLN<63000THENPRINTt» 

-2r"":PRINTH-2, "LINHA: "yLN,CS:PR 

INTtt-2,"" ELSE PRINTtt-2,"FIMs " 

■ CS : END 

63070 INPUT"PRESSIONE QURLQUER T 

ECLFT'yBTsGOTO 63018 



FIM: 
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DEIXE O SEU CP500 
FALAR MAIS. 

NEW BASIC 

40 novas instrucdes 



Ennquoca o vocabuiario BASIC do seu 
TRS (CPSOO e compativeis). com 40 novas 
inslrucoes decJicadas a parte grafica. qte 
darao ao BASIC do sou equipamento urra 
nova dimonsao 




^ 



r 



& 



& 



& 



^ 




PREgO 12 ORTNS 



SE VOCE TEM UM CP500 E/0U UMA P500 NAO PODE 

DEIXAR DE TER ESTE SOFTWARE 

Para os possuidoros do uma impressora 
PS00. osto sotlwari' pottnito explorar a sub 
capacidado grafica (mplomentando uma 
tela logica de alia resoiucao rocondgura- 
vol om ate 360 • 360 ponlos 

GRAFICOS GERADOS PELO fJEWBASlC 
NA IMPRESSOHA P500 
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DistribuicaodeComputadores 
e Servicos Ltda. 

Rua Kheui. 126 Cau — Pdrquo Crw; Aguiaf 

Bio V«"nc'ho - CEP 40000 - 

TEL 071 ■ 545-1234 S*I**30' DA 
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Oeseto rocobor o soltwaro NEWBASIC 
asslnalado no anunclo. 

Mediantc envio do cheque nominal a OlSCON 

DIST DE COMP. E SERV LTOA 

fo porte e por nossa conia e sua encomenda 

chega mats r.ipido) 

Cheque. Hanco __ 

Medianto pagamenio contra rccoblmento 
do sottwaro polo reembolso postal, 
acrescido de despesas postais 

Nome: 

Endereco 

C.dado . . CEP UF 
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CP 400 COLOR 

uma paixao que virou CLUBE 



N 



ao lem sede, nao 
tern estatuto, nao 
exigejdiaou qualquer tipodemensali- 
dadc e sequer faz piiblicidade. Mas au- 
mentou sen niimero de socios para 250, 
espalhados por todo o Brasil e unidos 
por uma paixaocomum: as I 001 pos- 
sibilidades do micro colorido. E o Co- 
lor Clubc, voltado para incrementar o 
prazerde "iraballiar"com um CP400 
Color c que prctcnde contribuir com 
muttas ideias para explorar ao maximo 
o polencial do equipamenlo. 

Pioneirismo 

Tudo comecou em 1981, quando 
Francisco Correa da Silva, cspecialista 
em marketing da Xerox do Brasil, ad- 
quiriu um TRS 80 Color, rccem-lan- 
cado nos EUA. 

' ' Piquei navegando no mar de quern 
nao conhecia nada de computador", 
lembra ele, ressaliando que na epoca o 
tcrmo informatica sequer cxistia. A par- 
lir il.ii, Francisco conseguiu "coiocar na 
cabeea" de um amigo a ideia de trazer 
um equipamento igual ao seu — "que 
era razoavelmente barato e ate certo 
ponto revolucionario, com caracteris- 
ticas de computador de maior porte". 
Juntos, irabalharam com o micro e, em 
1982, "descobriram" outro adepto, Al- 
fredo Troncoso, em Campinas, que es- 
tava num cstagio identico cm termos de 
conhecimento sobre o Color. "Resol- 
vcmos juntar esforcos e fazcr o TRS Co- 
lor Clube, e assim fomos conhccendo 
pessoas igualmcnte interessadas", lem- 
bra Francisco. 



Do TRS ao CP 400 Color 

I i ancisco lembra que, desde ai|iiela 
epoca, as atividadcs do clube baseavam- 
se na emissSo de um boletim com infor- 
macSes.trocasdeprogramas, vendasde 
sen i$os e t udo o que dizia i espeitoa ex- 
ploraciio do potencial do micro. "Em 
nosso clube, engenheirose tecnicos as- 
sociadospodem, poi exemplo.aumcn- 
tar a capacidade de memoria, fazer li- 
gagSes, alteracoes, as vezes por um pre- 
co simbolico, as \ ezes ate de graga. Tro- 
camos tambem programas para o mi- 
cro." 

Foi a partir de 84 que o mercado se 
aqueceu. "A Prologica foi a mola pro- 
pulsora", salienta l-'rancisco. "Ateen- 
tao, existiam tres companhias no mer- 
cado I'abricando compativeis com o 
TRS 80, mas nao souberam aprovcitar 
a vantagcm de pioneiros. Com a entra- 
da da Prologica no mercado, uma com- 
panhiadepesoevisao, surgiram 1 (X)l 
op?6es. Tanto que, dos 500 usuarios 
desse tipo de micro — entre nacionais 
e importados — , passamos agora para 
30 mil." 

Hoje, o Color Clube ja possui 30% 
de seus associados com equipamenlo 
CP 400 Color. "Ele e versatii, tern rc- 
solucao grafica, som, cores, musica, 
ofereccndo a melhor rclagao custo/be- 
aeffcio. Podemos fazer miserias com 
ele", cntusiasma-se Francisco. E acres- 
centa: "Se a Prologica souber ouvir os 
seus usuarios, ela tern grande futuro 
comessa maquina no Brasil, queeo lini- 
CO pais, atualmente, onde cxistem com- 
pativeis Color". 



Comunicagao 

O Color Clube contiiniatcndo. sua al- 
ma no boletim — que passou a bimcs- 
tral temporariamente porproblemas fi- 
nanceiros. Mas Francisco pretende 
transfoi ma-lo em uma publicacao inde- 
pendcnie ou mestno em um cncarte den- 
trodeoutra publicacao, paraexpandir 
a comunicacao, sempre de maneira in- 
formal. "A maioria dos usuarios cai eli- 
tes de informacoes esta fora do Rio de 
Janeiro ou de Sao Paulo, e ache inn. 
nosso boletim preenche essas necessida- 
des. Eu respondo, sem fazcr nenluima 
propaganda do Color Clubc, em media, 
a 10 cartas por dia" — salienta, Fran- 
cisco, frisando que nao recebe nada pa- 
ra exercer a "presidencia" do clube. 
" Acho que um CP tern deser mais pra- 
zer que obrigacao e, na verdade, o que 
faco e coordenar 250 pessoas, nao pre- 
sidir." 

Os socios desse clube informal ga- 
nham uma carteirinha simbolica c, pa- 
ra receber (se t|iiiserem) o boletim — 
que se chama ate hoje TRS 80 Color 
Clube Boletim — , pagam apenas 5 mil 
cruzeiros por exemplar. 

Alcm de toda a troca de informa- 
coes, programas, dicas de mercado, di- 
cas tecnicas, o Color Clube tambem lem 
um projeto "Cirandinha", um correio 
eletronico que funciona das 20 as 24 ho- 
ras, de 2? a 6i* feira, para mensagcns, 
boletins, colocacao de programas dis- 
poniveis etc. 

O endereco para correspondencia do 
TRS 80 Color Clube e Caixa Postal 295 1 
— Rio de Janeiro — CEP: 20001 — 
A/C de Francisco Correa. 
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Jogo do bicho 



DEU CP 500 NA CABE^A 




.logo do bicho por computador! 
Quern diria que a popular "fezinha" 
scria controlada tambem pela infor- 
matica. O jornal scmanal Infurmdli- 
ca floje, dc Sao Paulo, localizou no 



Rio de Janeiro um banqueiro que 
usa computador para vcrificar o 
movimento de apostas em seus 287 
pontos, onde irabalham mais dc 
3 mil pessoas. 



O banqueiro, enirevistado pelo vei- 
culo, compara o jogo a uma empresa, 
convencido dc que a administracao de 
parte de seus negocios fica mais efi- 
cicntc com o computador. Tanto que 
comprou um CP 500 e utilizou dez 
programas dcsenvolvidos por sua se- 
cretaria, para controlar o movimento 
de apostas nas bancas. 

"O processo de automatizacao da 
sociedade e incontrolavel e ate atinge 
redutosartesanaiscomoo jogo do bi- 
cho", afirma Wilson Moherdaui, edi- 
tor do InformckicaHoje. Scgundo ele, 
os banqueiros ja se reuniram com pia- 
no de informaiizar todo o processo de 
jogo, embora ainda nao abram mao 
daconfiabilidadedcalgunsprocessos 
manuais. 



Sistema 700 coordena Congresso Eucaristico 



A Terra nao e o centro do universo 
e a tendencia mundial e a total informa- 
tizacaoda Igreja. Afirmacoescomoes- 
ta, ou mesmo insinuacoes a respeito, le- 
varam muita gente para a fogueira. Li- 
teralmente. Mas isto, ha muitos secu- 
los atras. Hoje, a Igreja entende a im- 
portancia do desenvolvimento tecnolo- 
gicoecientifico. Tanto que o XI Con- 
gresso Eucaristico Nacional, realizado este ano em Apare- 
cida, Sao Paulo, foi totalmcnte coordenado por dois Sistc- 
mas 700 e duas impressoras P 720, da Prologica, e softwa- 
res dcsenvolvidos pela Data Systems Consultoria c Plane- 
jamento dc Dados. 

As atribuicoes dos computadores comecaram pela ela- 
boracao da listagem dos 4 mil participates, emissao de cra- 
chas para cada um deles, distribuicao do material litiirgico 
e elaboracao de listas de assinaturas para controle da adminis- 
iracao do evento. Tambem coube aos computadores a fun- 
v - ao de distribuir as autoridades eclesiasticas entrc 1 15 ho- 
tels, quatro conventos e varias casas dc devotos, para hos- 
pedagem- 

Alem disso, os microcomputadorcs possibilitaram que 
o padre Antonio da Silva — coordenador do evento — con- 
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trolasse a presenca de cada participan- 
te nas respectivas atividades, determi- 
nando horarios, tarcfas e funcoes espe- 
cificas. 

Ferrenho defensor da informatiza- 
cao da Igreja, padre Antonio, que e pes- 
quisador de teologia administrativa e ja 
trabalhou no Canada em informatiza- 
cao eclesiastica, acredita mesmo que a 

tendencia mundial e a total informatizacao da Igreja. 
Copcrnico, Galilcu Galilei, Giordano Bruno etantosou- 

tros estao vingados. 



Camara Municipal de Franca 

A CSmara Municipal de Franca, Sao Paulo, tambem 
csta utilizando os servicos do microcomputadur Sistema 
700, que devcra assegurar a modemizacao e melhor qua- 
lidade dos servicos legislatives, colocando a servico da 
coraunidade todos os eficientes recursos da computacao. 
Segundo o presidentc da Camara, Roberto Englcr, com 
este sistema o orgao terd condicoes de oferecer qualqucr 
informacao, sobre ciualquer lei ou assunto, instantanca- 
mente, agilizando assim os trabalhos ptiblicos. 
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SOS 

uma rede 
de escolas 

de 
informatica 



Maisde lOOcom- 
puiadores, scndo 
que grande mimcro 
e da Iinha CP da 
Prologica, classes li- 
mitadas — de forma 
aassegurarumcom- 
putador para cada 
dois alunos — , aposiilas desenvolvidas 
por uma equipe selecionada e turmas es- 
peciais para criancas de 9 a 1 2 anos. Es- 
las sao algumas das vaniagens ofcreci- 
das pela SOS Computadorcs, uma em- 
press que comecou ha dois anos atras 
e que hoje ja conta com uma rede de no- 
ve escolas — em Sao Paulo (Pacaem- 
bu, Paraiso e Vila Carrao), Guaruja, 
Santos, Sao Vicente, Tatui, Jundiai, 
Sorocaba — e mais de 1 500 alunos. 
Trabalhandocomtreslinguagens — 
Basic, Cobol e Assembler — , a SOS da 
ainda cursos espcciais de aplicativos, 
eomo o VisiCalc, urn software para a 
area tecnico-financeira. O curso com- 
pleto de Cobol tern 96 horas/aula; o de 
Assembler, 48 horas, e o de Basic e cum- 
prido em duas etapas: 48 horas/aula na 
primeira e 24 horas/aula na segunda. 
"Procuramos aumentar cada vez 
mais o cntrosamento aluno/computa- 
dor", completa Luiz Carlos Izzo, um 
do socios da SOS, "e para os que que- 
rem testar exercfcios, criar programas 
ou simplesmcnte familiarizar-se mais 
ainda com o micro, criamos o Clube 
SOS. Sao duas horas, em dias progra- 
mados, em que o aluno — ou o ex-aluno 
— dispoc dos micros para scu uso ex- 
clusive gratuitamente". 
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HCOMP PREMIA PROJETOS 

O Pegasus, supermicro de 32 bits, desenvolvido pela Universida- 
de Federal do Rio de Janeiro, e o robo industrial projetado pelo Cen- 
Iro de Computacao Eletronica da USP foram, respectivamenle, o 
primciro e o segundo colocados na premiacao instituida pela Abi- 
comp — Associacao Brasileira das Industrias de Compuladores e Pe- 
rifericos — para os melhores Irabalhos mostrados pelas 26 instituicoes 
de pesquisa que participaram da 5? Feira Inlernacional de Infor- 
matica. .'V/0//CT- 

As caracteristicas do robo da USP permitem sua utilizayao na in 
diistria automobilistica, seja para soldagem ou para pintura, e 
colocam-no em posicao de igualdade com os projetos de compra de 
lecnologia recentemente homologados pela Secretaria Especial de In- 
formatica. 



PROLOGICA E USP, um convenio pioneiro 



logica, para dcsenvolvimento de va- 
rios projetos na area de Informatica 
eEngcnharia. O primeiro deles code 
um micromputador de 32 bits, um su- 
permicro, qucjaestasendo desenvol- 
vido no Laboratorio de Subsistemas 
Integraveis da Poli. 

"Esse convenio beneficia tanto a 
empresa quanto a universidade. Para 
a Prologica, o intercambio com os 
meios academicos vai de encontro ao 
Piano Nacional de Informatica, que 
incentiva a participacao das universi- 
dades no trabalho desenvolvido pelos 
fabricantcs nacionais de compulado- 
res. Para a USP, a injecao de rccur- 
sos permitira o prosseguimento de um 
trabalho em tecnologia de ponta", 
afirma Carlos Roberto Gauch, vice- 
presidente da ProI6gica. 




Carlos Roberto A. Gauch 

E um projeto pioneiro no Brasil: a 
Prologica e a Escola Politecnica da 
Universidade de Sao Paulo estao fina- 
lizando os detalhes para a assinatura 
de um convenio de cooperacao tecno- 



Institute) de Ciencia da Computacao 

O Departamento de Ciencias da Computacao, integrado ao Itisti- 
tuto de Malenuitica e Estatistica da Universidade Estadual de Cam- 
pinas, Sao Paulo, sera transformado em Instituto de Ciencia da 
Computacao. Segundo Claudio Lucchesi, membro do Departamen- 
to, um projeto neste sentido ja esta sendo examinado pela Reitoria 
da Unicamp. 

Com a transformacao cm Instituto, sera criado o curso de pos- 
graduavao a nivel de doutorado em Computacao e ampliadas as areas 
de pesquisas existcntes, atualmente voltadas para hardware, software, 
leoria e sistemas de informayao, introduzindo-se as areas de inteli- 
gencia artificial e processamento de imagens. 
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C LUBE 




COM A PALAVRA, OS ASSOCIADOS: 





Dcsejo receber, adquirir ou trocar numeros atrasadosda 
Geracao Prologica. Prcciso dos niimcros 1 , 2, 3, 5 e 6 e te- 
nho os niimcros 7, 10, 1 1 e 12 para trocar. 

Auguslo Valente Nelo — Rua Modestino Soares, 960 — 
Bairro Jiiquei Clube — CEP: 64.000 — Tercsina — PI 



CP3p0eCP5_0p 

Troco programas com usuarios de CP 300 ou CP 500 na 
versao fita cassctc. 

Clorivaldo Alves Campos — Avcnida Gentil Tavares, 

506 — Bairro Getiilio Vargas — (el.: (079) 222-6000 

CEP: 49.000 — Aracaju — SE 



Nos, do FRIEND'S COMPUTERS CLUB, cstamos dis- 
posios a aceitar os Icitorcs da cxcclentc rcvisia Geracao Pro- 
logica. Tambem pcdimos sugestoes para mclhorar a nossa 
associacao. Endercco para correspondencia: Rua Julio de 
M. Filho, 10-54 — Vila Universitaria — CEP: 17. 100 — Bau- 
ru — SP. 

Note da redacSo: Nos, do Clube CP's, tambem estamos 
dispostos a receber os FRIEND'S como nossos associados. 
Bem-vindos. 
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Possuo urn computador CP 400 c uma extcnsa rclacao 
de programas cntre jogos, aplicativos e programas intcgra- 
dos. Gostaria, at raves dcsta revista, de criar urn Clube de 
Usiicirioscm Sao Paulo visando, principalmente, a trocade 
bons programas, bem como de adquirir (rateando o custo) 
os liltimos programas lancados nos Estados Unidos e de real 
interessc do Clube. Peco tambem uma rclacao de usuarios 
de CP 400 para convida-los a integrar o clube. 

Albcrlo Zagni — Rua Bartolomeu Feio, 190 — tel.: 

(011) 531-5623 (residencia) e (01 1) 270-2322 (comereial) 

CEP: 04580 — Sao Paulo — SP 

.Sola da redaclo: Scja bem-vindo ao CLUBE CP's, Al- 
berto. O convitc para os usuarios de CP 400 esta feito, mas 
nao estamos autorizados a publicar listas de nomes, a nao 
ser que o lcitor assim o deseje. 



NOVO SOCIO 

Sou assinante da Geracao Prologica c tenho acompanha- 
do com bastantc intcresse a secao CLUBE CP's. Como fa- 
co para me associar ao rel'erido clube? 

Paulo Antonio Cunha Martins — Rua Mai. Rondon, 
2094 — CEP: 79.100 — Campo Grande — MS 

Nola da redacao: Companheiro Paulo, temos a bonra 
dc informar-lhc que voce ja c um memb.ro do CLUBE CP's. 
Nosso clube c um espaco conquistado pclos usuarios da li- 
nha dc computadores pessoais da Prologica e tern como fi- 
losofia a democratizacao das informacoes. Essa democra- 
tizagao pode scr praticada com todos: com a revista, com 
o fabricante e com os outros usuarios de microcomputado- 
rcs. Por isso publicamos seu endercco para troca de infor- 
macoes. Escrcva sempre. 

GERACAO PROLOGICA 




A eficiencia na automacao em escri- 
torios tern varias possibilidades, depen- 
dendo das necessidades e da adequacao 
dos equipamentos, alem da relacao 
custo/beneficio. Os acess6rios e peri- 
fericos cumprem, ncstas ocasioes, o 
papel viabilizador dc pcrspcctivas pro- 
dutivas atraves da computagao, au- 
mentando o rendimento dos micro- 
computadores. 

Este e o caso do mais novo produto 
que a PSI — Projetos e Servicos em 
Informatica — esta colocando no mcr- 
cado de perifericos: o Freeway, um 
Data Buffer inteligente que alua como 
interface entre um microcomputador 
e uma impressora, armazenando infor- 
macoes em alta velocidade e liberan- 
do imediatamente o micro para outras 
atividades. Alem dc pcrmitir a otimi- 
zacao do uso do microcomputador 
(que nao ira mais perder tempo con- 
trolando a impressao de relatorios), o 
Freeway possui memoria real de 64 Kb 
(ou 65 536 toques), expansivel ate 
512 Kb. Porem, essa memoria pode 
operar com mais do que o dobro de 
sua capacidadc real ou adquirida, ja 
que trabalha com armazenamento em 
modo comprimido. 

Caracteristicas tecnicas 

e compatibilidade 

com os CPs 

Totalmente compativel com a linha 
de computadores pessoais da Prologi- 
ca, o Freeway agiliza e aperfcicoa as 
relacoes micro-impressora, aprcsentan- 




do caracteristicas ineditas para o mer- 
cado nacional: oferece estatisticas dc 
impressao, permite avanco de paginas, 
controla a troca de papel avulso, fil- 
tra linefeed automatico, permite inser- 
cao de impressoes rapidas em meio a 
grandes relatorios, executa autotestes 
e outras funcoes que o caracterizam 
como uma interface inteligente. 

Alem de apresentar essas caracte- 
risticas, este Data Buffer permite tam- 
bem a impressao de graficos, convene 
modos de comunicacao paralela cm se- 
rial, ou vice-versa, aumenta as distan- 
cias entre os dispositivos sem a neces- 
sidade de modem, libera rapidamente 
linhas telcfonicas usadas em transmis- 
soes de listagens a grande distancia e 
pode ser ligado a terminals de videos. 

Apesar de todas essas funcoes, o 
Freeway apresenta-sc em gabinete le- 
ve e de dimensoes reduzidas, pois foi 
dcsenvolvido com circuitos integrados 
de alta densidade. 

Para o engenheiro Luiz Carlos Pal- 
miro, diretor de marketing da PSI, a 
principal vantagem do Freeway e que 
ele proporciona um melhor rendimen- 
to de todo o sistema montado a partir 
dc um microcomputador: "Um micro 



que demore 30 minutos comandando 
uma impressao podera realizar essa ta- 
refa em apenas 40 segundos se auxilia- 
do pelo Freeway, otimizando assim a 
relacao custo/beneficio do sistema". 

Alta resolucao grafica 
para o CP 500 

A PSI tambem desenvolveu a placa 
PSI-GRAF, que transforma o CP 500 
normal em um poderoso microcom- 
putador com alta resolucao grafica 
(512 x 192 pontos) e amplia o video de 
texto para 80 ou 85 colunas. 

Acompanha a PSI-GRAF um dis- 
quete ou uma fita cassete contendo o 
software basico de operacao, incluin- 
do uma versao do interpretador Basic 
com extensoes especiais para as carac- 
teristicas da placa. 

Alem da PSI-GRAF, a empresa de- 
senvolveu varios outros perifericos 
compativeis com a linha de computa- 
dores pessoais da Prologica: a PSI-300 
IP, interface que permite a ligacao de 
uma impressora paralela no CP 300 e 
a PSI-MC, que permite conectar e con- 
trolar varios aparelhos atraves dc um 
CP 200 ou CP 300 ou CP 500. Na 
area de software, a empresa coloca a 
disposicao do mercado o SCE — Sis- 
tema de Controle de Estoque. Mas, 
Luiz Carlos Palmiro garante que a PSI 
nao para por ai: nos proximos meses 
estara disponivel no mercado o novo 
produto da empresa, um Controlador 
Inteligente para Processos Industrials, 
tambem compativel com a linha CP. 
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Ivwko Mem com o CP 400 Color, de Paulo Addair, 144 
paginas, 16 x 23 cm, Editele — Editora Tecnica Eletronica. 



Sempre que se fala em literatura para computadores pes- 
soais, pensa-se logo em cursos de programacao, quase sem- 
pre Basic, ou entao em coletaneas de programas do tipo 



"Agenda Telefonica", "Orcamento Domestico" ou, ain- 
da, nos invariaveis jogos "Labirinto" e similares. Raros 
sao os livros que se preocupam em explorar melhor os re- 
cursos do equipamento. A preocupacao geral e aplicar 
aqueles que sao apresentados no proprio manual, atraves 
de cursos basicos ou entao de programas ja prontos. 

Os poucos livros que abordam recursos ineditos, quer 
seja revelando detalhes de hardware ou relacionando os 
PEEKs e POKEs mais importantes do equipamento, in- 
variavelmente sao escritos de forma sintetica, visando so- 
bretudo o programador experiente, que nao exige maio- 
res explicacoes ou excrhplos elaborados de utilizacao do 
recurso apresentado. 

Fugindo um pouco desses lugares-comuns, que carac- 
terizam o mercado de livros nacionais, a EDITELE Ian- 
cou na V Feira de Informatica, em setembro ultimo, um 
livro destinado ao programador iniciante que aborda re- 
cursos ineditos do CP 400 Color. A intcncao dessa obra 
e que "o leitor va percebendo, gradualmente, as reais di- 
mensoes da ferramenta que possui, numa tentativa de do- 
minar essa tecnologia". 

Os recursos mostrados no livro estao divididos em cin- 
co areas distintas: de programacao, de video, de fita cas- 
sete, de disco e os recursos avancados. 

Entre os varios recursos, podemos destacar uma rotina 
capaz de unir programas previamente gravados em fita, 
coisa que normalmente so.e possi'vel com programas em 
disco. Outro programa interessante e o editor grafico, ca- 
paz da incrivel facanha de gerar um programa que recria 
o grafico editado, ao inves de copiar simplesmente as pa- 
ginas de video em fita ou disco. Alem desses, mais deze- 
nove programas do mesmo nivel completam essa bem 
cuidada obra que, evidentemente, nao esgota o assunto, 
mas da uma boa nocao do que se pode fazer com o micro 
e um cxemplo do que se pode fazer pelo usuario. 




Dicioiuirio Essencial de Eletronica, pesquisas: Juliano Bar- 
sali e Julio Amancio de Souza, 80 paginas, 1 1,5 x 15,5 cm, 
Editele — Editora Tecnica Eletronica. 



Esse dicionario surgiu da necessidade de se ter uma fonte 
de consulta rapida € atualizada sobre uma infinidade de 
termos ligados a informatica, microeletronica, telecomu- 
nicacoes e diversos outros setores da eletronica, como uma 
altcrnativa aos grandes dicionarios — volumosos e com 
temas muito dispersos. Reduzindo o niimero de assuntos 
aos mais importantes, foi possivel produzir um livro de 
bolso bastante pratico e compacto, contendo cerca de 1000 
verbetes. Pela forma como foi elaborado, esse dicionario 
e util a profissionais de eletronica, leigos e estudantes, co- 
mo fonte constante de novas informacoes e complemen- 
tacao da Serie Biblioteca Nova Eletronica. 



1 6 



GERACAO PROL6GICA 








1 600m 2 para Ihe proporcionar o melhor atendimento. 



F1LCRES 



ATENDIMENTO 
PERSONALIZADO: 

Equipus ospecializadas para 

orienla-lo ou demonslrar 

equipamenlos em lodo o 

territorionacional. 



ASSISTENCIA 
TECNICA: 

Prolissionais allamonle 

qualificados, 

aptosaalonder 

qualquot lipo de necessidade. 



TREINAMENTO 
ECURSOS: 

Mantemos cursos e Ireinamonlo 

do operacao gratuilos. 

incluindo aulas praticas 

e material didalico. 




INFORMATICA: 

Complela linha de perilericos 
e compuladores. desde 
pessoais ale Sislemas 
prolissionais. 



SUPRIMENTOS 
PARACPD: 

Diskettes, lormulanos. Iitas 
para impressoras etc... 
aprontaonlrega. 



INSTRUMENTOS: 

Equipamenlos de teste e medicao 
para as diversas areas 
da Eletronica e inlormatica 



AJUDANDO A DESENVOLVER TECNOLOGIA 

RlM Aurora, 165 - SP - Ttl.: PBX (011)223-7388 - Telex (011)31298 Dirato - SP - 223-1446/ 
222-3458/220-91 13/220-7954 Direto outroi EtttdOK 222-5430/221-0326/223-7649/222-0284 




CP500/Mpa grande solupao. 

Garantia da maior biblioteca 
de programas aplicativos. 



O CP 500/M 80 agora tanibcm e compati- 
vcl com CP/M, o Sistcma Operational 
mais clifundiclo no mundo. Isso significa 
que, somando o iradicional DOS 500 
com o CP/M, voce passa a dispor da maior 
biblioteca de programas aplicaiivos do 
mercado. Trata-se da solucAo inteligente 
e racional para o seu dia-a-dia, permiiindo 
a voce lirar vaniagcm de programas como 



CalcStar*, dBase II', WordStar* e mniios 
outros, que vilo agilizar tamo a sua vida 
quanto a da sua empresa: Folha de 
Pagamento, Controle de Estoque, Comas a 
Pagar/Receber, Administracao Hospitalar, 
Calculo Estrutural, Sistema de Balancea- 
menio de Raffles e outros programas especi- 
ficos para o seu ramo de atividade. 
O CP 500/M 80 possui saida paralela para 



Caraclcrtsticas 


Sisiema Operational 


Video 12" fosforo vcfde com controle de 

inteiuidade 

TecUdo profissiorul capacilivo com numer ico 

rcduzido 

Interface para imprcvswa paralela 

Interface serial padrao RS232-C ( optional) 

Frcquencia de Opcracao: 2 Mhz 

Unidadc de som com conlrole de volume 

Opera com 1 ou 2 drivel de face simples ou dtipla 




Memoria RAM 
Memoria ROM 
Compalibilidadc 
Vidro 


SO^B DOS 500 
64 Kbytes 48 Kbytes 

2 Kbytes 16 Kbytes 

CP/M- TRS-DOS 

80 colutuv por 64 ou 32* cnlimas 

24linhas por 16 linli.is 





impressora, e voce pode inslalar facilmente 
uma porta RS232-C, que o COloca em 
contato com a Rede Internacional de 
Telematica, alem do Videotexto, Cirandao, 
Aruanda etc. Conheca no seu revcndedor 
mais proximo o CP 500/M 80 . 

Um grande passo na informatica, com a 
qualidade CP e a Tccnologia Prol6gica. 
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PROLOGICA 



INDICE 



1. CALENDARIO PERSONAL1ZADO 

Programa desenvolvido para o CP 500 o.u CP 300, que 
permite a elaboracao de calendarios persohalizados ... 2 e 3 



2. TRANSFORM I SI l CI' 400 COLOR MM CHAR- 
MOSO PROFESSOR DE FRANCES 

Trcs programas educacionais que permiiem o aprendiza- 
do da lingua francesa. O primeiro programa e baseado 
no jogo da forca; o scgundo, na conjuga?ao de verbos 
e o terceiro, no aprendizado de palavras at raves dc 
anlonimos 3, 4, 5, 6, 7 e 8 



3. TRINOMIO DO 21' GRAU 

Continuacao da lisuigem em Basic do programa educa- 
cional desenvolvido para o CP 200 S 



APLICATIVO 



Calendario 



CP 500 ou CP 300 — 48 Kb RAM 



1986 esta chegando... Nao esta na 
hora de um novo calendario? Entao, 
nao perca tempo: faca voce mesmo. o 
seu calendario personalizado e sur- 
preenda seus amigos com um presente 
original, poisxom este programa voce 



podera utilizar esteticas diferentes e 
qualquer tipo de formulario. 

De facil operacao, pois todos os co- 
mandos e opcoes aparecem na tela do 
computador, este programa possibili- 
ta a elaboracao de calendarios eternos, 



com opcoes para ajustes de espacos en- 
tre os dias e meses, dependendo do ca- 
ractcre escolhido. Digite corretamente 
a listagem em Basic e, nas opcoes, per- 
sonalize seu calendario com a estetica 
que escolher. Agora e so imprimir na 
sua P 500 e feliz Ano-Novo! 



10 ' **************************** 

20 '* CALENDARIO * 

30 '* CP-COMPUT. PESSOfllS * 

40 '* CP-500 * 

5(") ' M » " '■ II II II II II U p I T Q II II II II II II II II II ^ 

60 ' **************************** 

70 CLEAR 16000 
SO CLS 

90 DIM L$(60) ,M$(12) ,D*(7) ,DI(10) , 
DSC 12): FOR 1=0 TO 60 :L* ( I )=STRING$ 
(230,32) 8 NEXT I: FOR 1=1 TO 12:READ 
M$(I):NEXT I: FOR 1=1 TO 7: READ D$ 
( I): NEXT I: FOR 1=1 TO 10:DI ( I )=1 :N 
EXT I : READ DF$ 

100 DEF FNM*(X*,X)=STRING*(INT((X- 
LEN(X$) )/2) ,45)+X*+STRING$(-INT(-< 
X-LEN(X$) )/2) ,45) 

110 PRINT"DESEJA CARACTERES EXPAND 
IDOS NA TELA (S/N) ";: INPUT H$ 
120 IF H$="N" THEN CLS: GOTO 140 : 
IF H*<>"S" THEN GOTO 110 
130 CLS: PRINT CHR$(23) 
140 INPUT "ANO A IMPRIMIR ";AN0:PR 
INT 

150 PRINT "QTAS COLUNAS DE MESES (2 
-3-4-6) :"; 

160 A$=INKEY$:IF A$="" THEN GOTO 1 
60 ELSE IF INSTR("2346",A$)<1 THE 
N GOTO 160 ELSE PRINT A$:NML=VAL( 
A*) SPRINT 

170 PRINT "QUAL ESPACO P/ UM DIA 
(2 A 5 ) : " j 

180 A*=INKEY*:IF A$="" THEN GOTO 1 
SO ELSE IF INSTR("2345",A$)<1 THE 
N GOTO ISO ELSE PRINT A$:E=VAL(A$ 
) SPRINT 

190 PRINT "QUAL A DISTANCIA EM CAR 
ACTERES ENTRE OS DIAS (1 A 5 > : " ; 
200 A$=INKEY$:IF A$="" THEN GOTO 2 
00 ELSE IF INSTRC " 12345 ",A$ XI TH 
EN GOTO 200 ELSE PRINT A$:F=VAL(A 
*) SPRINT 



210 PRINT "QUAL A DISTANCIA EM CAR 
ACTERES ENTRE OS MESES (1 A 9):"; 
220 A*=INKEY$:IF A$="" THEN GOTO 2 
20 ELSE IF INSTRC 123456789 ",A$X 
1 THEN GOTO 220 ELSE PRINT A*:D=V 
AL(A$) ."PRINT 

230 C=7*E+6*F+D:M$="312S3130313031 
3130313031": IF AN0/4=INT( ANO/4 ) TH 
EN MID$(M$,4)="9" 

240 DS ( 1 ) = ( ANO-1 ) *365+INT ( ( ANO-1 ) / 
4 ) : DS ( 1 ) =DS ( 1 ) -INT ( DS ( 1 ) /7 ) *7+l 
250 FOR 1=2 TO 12:DS(I )=DS( 1-1 )+VA 
L ( MID$ ( M$ , 2*1-3 , 2 > ) -1 : DS ( I ) =DS ( I ) - 
INT(DS(I)/7)*7+l:NEXT I 
260 MID*(L*(0) ,C*NML/2-3)="*"+STR$ 
<ANO)+" *" 

270 FOR 1=1 TO 12 STEP NML 
280 F0RJ=0T0NML-1 : MES=J+I : L= ( 1-1 ) * 
10/NML+2 : MID$ (L$ (L) , J*C+1 ) =FNM$ ( M$ 
(MES) ,C) :L=L+1 

290 FOR S=l TO 7:MID*(L$(L) ,D/2+J* 
C+1+ ( S-l ) * ( E+F ) ) =LEFT* ( D$ ( S ) , E ) : NE 
XT S 

300 IN=DS ( MES ) : DI=1 : FI=7 : DM=VAL ( MI 
D$(M$,MES*2-1,2) ) 
310 L=L+1 

320 FOR K=IN TO FI :DU=DI+K-INsMID* 
(L$(L) ,D/2+J*C+l+(K-l)*(E+F) )=STRI 
NG$ ( E+l-LEN ( STR* ( DU ) ) , 32 ) +RIGHT* ( S 
TR$ ( DU ) , LEN ( STR$ ( DU ) ) -1 > s DE*=STR* ( 
DU)+"/"+STR$(MES)+"." 
330 IF INSTR(DF*,DE$)<>0 THEN MID$ 
( L* < L ) , D/2+J*C+l+ ( K-l ) * ( E+F ) ) =LEFT 
*("FERIADO",E) 
340 NEXT K 

350 DI=DI+FI-IN+l:IN=l:IF DI-1=DM 
THEN GOTO 380 

360 IF FI+DI-DDM THEN FI=DM-DI + 1 
370 GOTO 310 
380 NEXT J: NEXT I 

390 FOR 1=0 TO 12/NML*10 : LPRINT LE 
FT$(L$(I) ,C*NML) :NEXT I: CLS: END 
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400 ' 

410 ' MESES POR EXTENSO 

420 ' 

430 DRTR JANEIRO, FEVEREIRO,MRRCO,fl 

BRIL , MRIO , JUNHO , JULHO , RGOSTO , SETEM 

BRO , OUTUBRO , NOVEMBRO , DEZEMBRO , DOMI 

NGO , SEGUNDR , TERCR , QURRTR , QUINTR , SE 



XTR,SOBRD0 

440 ' 

450 ' DRTRS DE FERIRDO PERMRNENTE 

460 ' 

470 DRTfl " 1/ 1- 21/ 4. 1/ 5- 6/ 6 

. 7/ 9. 12/ 10. 2/ 11. 15/ 11. 25/ 

1*7 . " 



EDUCACIONAL 



Transforme seu CP 400 Color 
num charmoso professor de trances 



CP 400 Colo 



16 Kb RAM 



line saison dans I'enfer. 

Voce sabe o que esta cscrito ai em 
cima? Nao?!!! 

Entao, esta na hora de comecar a 
aprender frances, a lingua mais roman- 
lica c sensual deste planeta. E tambem 
a mais gostosa... alguns restauranies 
tern uma comida deliciosa, mas de di- 
ficil pronuncia. Alcm disso, voce po- 
dera Ier grandcs autores no original: 
Flores do Mai, de Baudelaire; llumi- 
nagdes, de Rimbaud; Poemas, de Paul 
Verlaine. Quer mais? 



Entao, digitc os trcs programas que 
seguem e faca de seu CP 400 Color o 
mais charmoso professor de frances. 
Mas o mais importante e que voce 
aprendera brincando — como todo 
bom parisiense. E, quern sabe, um dia 
voce estara sentado no Cafe du Paix, 
em Saint Germaine, lcndo o Le 
Monde... 

No programa mimero 1, FORCA, 
voce aprendera frances com o conhe- 
cido jogo da forca; no niimero 2, li- 
coes sobre conjugacao de verbos e, no 



mimero 3, voce tera 20 questoes sobre 
antonimos. Tudo em frances... menos 
as instrucoes c comandos a utilizar: o 
professor CP 400 Color mostrara tu- 
do no video. 

Bern, se voce for um bom aluno, em 
pouco tempo podera traduzir este poe- 
ma de Verlaine: 

"Airnez, ainwz! 6 cheres Esseulees, 
Puisqu'en ces jours de malheur, vous 

encore, 
Le glorieux Stigmale vous decore". 



PROGRAMA N? 1 — FORCA 



10 
20 
30 
M0 
50 
60 
70 



' X X X X X X X X X X X X X X X X X X X X XXX X X X X X 
'x F0RCP1 - FRRNCES * 
'x CP-COMPUTRDORES PESSORIS x 
'x CP-MOO COLOR * 

' X X X XXX X X X X X X X X X X X X X X X X X X X X X X 

CLS0 

PRINT@192+Mr "CP-COMPUTRDORES 
PESSORIS"; 

80 PORTI=1TO1000:NEXTTI 
90 DRTfl L'ABEILLE,L'RBRICOTrL'flC 
HflT , RCHETER , L ' RCTEUR , L ' ADVERSE , L 
' ADDITION, L'flFFICHErL' AGENT, L'RI 
LrRIMERrL'ALGEBRE.AMUSANTrL'ANNE 
E,L'ANNIVERSAIRE,APP0RTER,APPROA 
CHER, L'APRES-MIDI,L'ARITHMETI QUE 
,ARRETER,L'ASSIETTE, ASSURER ,ATTE 
NDRE,AU-DESSUS DE,RUSSI 
100 DATAAUTRNT,L' AUTOBUS, AVANT, A 
yOIR,RVRIL,LES BRGRGES,LE BRIN,L 
fl BANDE,LA BARBE,LE BAS,LE BATEA 
U,BEAUCOUP,LE BEURRE,LA BIERE,LE 
BILLET, BOIRE, LA BOITE , BON JOUR, L 



R B0UCHE,LE BOULANGER,LA BOUTEIL 
LErLE BRAS,BROSSER,LE BRUITrCOMM 
E CI,LE CASHIER, LE CAMION 
110 DATA LE CANARD, LA CARTE, CASS 
ER,CE QUE,CE S0NT,LA CEINTURE,CE 
PENDANT, LA CHAMBRE,LA CHANSON, SE 
CHARGER DE,LE CHAT , AVOIR, LA CHE 
MISE,CHERCHER,LES CHEUEUX,LA CHI 
HIE, LA MOUSSE AU CHOCOLAT , QUELQU 
E CHOSErLA CIGALE,CINQUANTE,LA C 
LEF,LE C0CH0N,LA COLLINE 
120 DATA COMME,COMMENCER,LE COMP 
LET, LA CONFITURE, CONSTRUIRE,LE C 
ONTRAIRE,LA COPINE,LE CORPS, COUC 
HER,LE COULOIR, LE COUTEAU,LA CRA 
IE, LA CUISINE, LA DAME,DEBOUT ,DE J 
EUNER,LA DEMI-HEURE,LA DENT,DESC 
ENDRE, DEUX., DEVENIR, DIFFICILE, LE 
DIND0N,LE DINER, LE DISQUE 
130 DATA LE DIUAN, DIX-SEPT,LE DO 
IGT,DORMIR,LE DRAP , L ' ECHARPE , ECO 
UTER,L'EGLISE,ELECTRONIQUE,EMBRfl 
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SSER , EMPRUNTER , ENERGI QUE , ENSEMBL 
E , ENTRER , L ' EPRULE , L ' ESCRLE , L ' ESC 
ORGOTrESSRYERrL'ESTOMflCrL'ETRTrL 
'ETOILE,ETROIT,ETUDIER,L'EVIER,L 
'EXCURSION, LE FACTEUR,FAJ 
140 DATA LA FAMILLE,LE FRUTEUIL, 
LR FENETRE,Lfl FETE,LR FIEVRE,LR 
FILLE,Lfl FLEUR,LR FORME, LR FOURM 
IrLR FRRISE,LE FRERE,LE FROMRGE, 
LE GRNT,LE GARDE, LE GENOU,LR GEO 
METRIE,LE GIGOT,Lfl GORGE, LR GRRN 
D-MERE,Lfi GRENADINE, GROSSIR, HflBI 
LLER,HABITER,L'HERBE 
150 DRTR HEUREUSEMENT,HIER,L'HIV 
ER, L'HORAIRE^' HOTEL, HUIT,IHPRES 
SIONNER,INDIQUER,S'INQUIETER,INT 
ERESSANT,IRREGULIER,LA JAMBE,LE 
JARDIN,JEUNE,LA JOURNEE,LR JUPE, 
LE LAC, LA LRITUE,LR LANGUE,LE LE 
GUME, LIBRE, LA LIGNE,LE LIT,LONGT 
EMPSrLR LUNF7MRDRME 
160 DATA LE MAGASIN,LE MAGNETOPH 
ONE , LA MAIN , MALADE , MALHEUREUSEME 
NT,LO SRLLE fl,LE MARCHE,LE MARJ, 
LES MATHFMATIQUES,LA MATIN, LE ME 
DECIN,Lfl MIETTE,MINERRLE,Lfl MODE 
,LE MOIStLA MONNAIE,LA MONTAGNE, 
MONTRER,LR MOTCMOURIR , LE MOUTON 
-LR MUSIQUE,LA NAPPE 
170 DATA NEANMOIS,NECESSAIRE,LR 
NEIGE,NETTOYER,LE NEZ,LE NOM,LE 
NORD-OUEST,NOUVERU,LR NUIT,L'ONC 
LE,L' OREILLE, OUBLIER,OU I, OUVRIR, 
LE PRIN,LE PAMPLEMOUSSE,LE PANIE 
R,LE PAPIER, LE PAQUET,PARCE QUE, 
PARIER,LA PARTIE, PASSER, PATINER, 
PAUVRE,LA PECHE, FEIGNER 
180 DATA PENSER,LA PHARMACIE ,LA 
PHYSIQUE, LE PIED,LE PIQUE-NIQUE, 
PLEUVOIR,LE POETE,LA POIRE, LE PO 
ISSON,LA POMME,LR PORTE, POSER UN 
E QUESTION,POUVOIR,PREMIER,LE PR 
IX,PROMENER,LE PROVERBE,LE PUPIT 
RE,QUATORZE,QUATRE,QUELQUEFOIS,Q 
UT.NZE,LE RAPPORT, RECEVOIR 
190 DATA LE REFRIGERATEI.IR , REGRET 
TER , REMPLACER , LES RESEIGNEMENTS , 
REPASSER,SE REPOSER,LE RETOUR,RE 
USSIR,REVEILLER,AU REUOIR,LE RHU 
ME,RISQUER DE,LA ROBE,LE ROSBIF, 
LR ROUTE, LA RUE,AU COIN DE LA,LE 
RYTHMErLA SAISON,LE SAUCISSON , I... 
R SAUTERELLE,SCOLAIRE 
200 DRTR LE SERPENT, LA SERVIETTE 
,LE SINGE, LE SOIR,LF SOMMEIL,LA 
SGUCOUPE,SOUVENT,LE STAGE, LE STY 
LO,LE SUD-OUEST,LA SUITE , SURTOUT 
,LE TABLEAU, LE TAPIS, LA TASSE,LE 



TEMPS, SE TERMINER, LF TIGRE,Lfl T 
OMRTE , LR TRRNCHE, TRAVERSER , TYPI Q 
UE,LES VACANCES,Lfl VRCHE 
210 DRTR LE VELO , VENDRE , LE VENT, 
LE VERRE,LA VIEILLESSE,LA VILLE, 
LA VITRINE,Lfl VOITURE ,PRRTIR EN, 
LE ZOO 

220 CLS:DIMA$(30) :F0RA^1T014 :BL$ 
=BL$+CHR$ ( 126 ) : NEXTA : FGRA"^201TO4 
8?STEP32:PRINT(5A,BL$; : NEXTA 
230 PRINT<a235,CHR$(159)+CHR$(156 
)+CHR$(156)+CHR$(158)+CHR$(156)+ 
CHR$<156)+CHR$<l57)+CHR$<i56)p 
240 PRINT@267,CHR*(159)+CHR$<128 
)+CHR$<150); 

250 PRINT@299,CHR$(159)+CHR$(150 
) ; :F0RA=331T0491STEP32::PRINT(3A,C 
HR*(159) jrNEXTR 

260 T=RND ( 307 ) : FORY= 1 TOT •: RERDR* r, 
NEXTY 

270 B=LEN(fl$) :FORQ=lTOB:R$(Q)=MI 
D$(A$,Q,1):NEXTQ 

280 PRINT(396,"LETRRS USRDRS:";:F 
0RR=1T0B:PRINT(338+R,"-"; sNEXTR 
290 PRINTei60,"QUE LETRR?"; 
300 PRINTG172," "; 
310 IK$=INKEY$ 

320 B$=].NKEY$:IFB$ = ""0R&$ = CHR$<1 
3)THEN320 

330 PRT.NT<ai72,B$;:FORTI = lTO40:NE 
XTTI 

340 FORQ=lTOBsIFB*=R$(Q)THENPRIN 
TtfQ+38 , B* ", : SOUND1 50 , 1 
350 NEXTQ 

360 FORQ = 1TOB:IFB$OR$(Q)THENNEX 
TQ:G=G+l:S0UND5v l:ON G GOSUB 400 
,410,420,430,440,450,460,470,480 
,490 

370 PRlNT@U+110,B$j:U=W+l 
380 FORQ=1TOB:IFCHR$(PEEK(1062+Q 
))=fl$(Q)ORPEEK(1062+Q)=64+RSC(fl$ 
( Q > ) THENNEXTQ s FORT=l T028 : PRINTS 1 
2,"CORRETO";sFORTT=lTO10:NEXTTT: 
PRINTG12," "?: SOUND 1 50, IsF 

ORTT=1TO20:NEXTTT:NEXTT:RUN 
390 6OTO290 

400 PRINT(3272,CHR$(158)+CHR$<159 
)+CHR*(157);:PRINT^304,CHR*(157) 
+CHR$(159)+CHR$<158) ; : RETURN 
410 PRINT(i!336,CHR$(143)+CHR*(143 
) + CHR$(143)?nPRINT(a368,CHR*(143) 
+CHR$(143)+CHR$(143) ; : PRINTG400 , 
CHR$ (175) +CHR$ ( 175 ) +CHR* < 175 ) ; : P 
R INTG432 , CHR$ ( 172 ) +CHR$ ( 172) +CHR 
*< 172);: RETURN 

420 PRINT(3432,CHR$(175) ; :PRINTG4 
64, CHR$< 175);: RETURN 
430 PR INTG434 , CHR$ ( 175),- : PRINT04 
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66,CHR*(175);: 
440 PRINTG335, 
67,CHR$(138) ;: 
450 PRINT<?339, 
71 ,CHR$(133) ?: 
460 PRINTG399, 
470 PRINTG403, 
480 PRINTG495, 
); : RETURN 
490 PRINTG498, 

>,- 

500 PRINTQ0," 



RETURN 

CHR$(142) 

RETURN 

CHR$(141) 

RETURN 

CHR*(158) 

CHR$(157) 



sPRINTSS 

SPRINT03 

: RETURN 
: RETURN 



CHR*(i77>+CHR$<183 
CHR$(187)+CHR$(178 
PALAVRA E' ";CHR 



*<34>;A*;CHR$<34):S0UND89rB:SET( 

33,17,2):S0UND89,8:RESET(33,17): 

S0UND89,4:SET(36,17,2):S0UND89,8 

: RESET (36,17): S0UND1 1 7,8: SET (33. 

17,2)= SOUND1 08 , 4 : RESET ( 33 , 1 7 ) : SO 

UND108,8:SET(36,17,2):SOUND89,4: 

RESET (36, 17) :S0UND89,8 

510 SET (36,17,2): S0UND78 , 4 :SET ( 3 

3,17,2) :S0UND89, 8 sRUN 

520 FORE=1TO307:RERDR$:NEXT:PRIN 
TA* 
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10 ' X X X X X X X X X X X X X X X * X X X X X X X X X X X X 

20 'x VERBOS/FRANCES * 
30 'x CP 400 COLOR x 
40 'x CP-COMPUTADORES PESSQAIS * 

50 'X X X X X X X X X X X X X X X X X X X X X X X X X X X X 

60 CLS2:S0UND89,2:S0UND89,2:S0UN 

D133,4:S0UND133,4:S0UND147v4:SGI..I 

ND147, 4 sSOUNDl 76, 6: SOUND 159, 2: SO 

UND133,4:CLS 

70 PRINT"QURL E' SEU NOME?"! IN 

PUTNR$ 

80 IFNA$= ,, "THENPRINT"E / NECESSRR 

10 UM NOME":GOTO70 

90 R$(1)="PRIMEIRR PESSOR DO SIN 

GULRR" 

100 R$(2)="SE6UNDR PESSOR DO SIN 

GULRR" 

110 R$(3)="TERCEIRfl PESSOR DO SI 

NGULRR" 

120 A*(4)="PRIMEIRA PESSOR DO PL 

URAL" 

130 fl$(5)="SEGUNDR PESSOR DO PLU 

RRL" 

140 R$(6)="TERCEIRR PESSOR DO PL 

URAL" 

150 NV=50 

160 F0RX=J.T0I5 

170 REST0RE:fl=RND<NV):C=RND(6) 

180 FGRB=lT0fl:F0RD-=lT07:RERDV$(D 

) B NEXTD , B : CLS s PR INTX : PR INT : PR I NT 

TflB(8>V$(i) SPRINT 

190 PRINTR$(C) 

200 INPUTF$:PRINT:IFF*=V$(C+1)TH 

ENPRINT"ESTR CORRETO, ";Nfl$;" !" 

:K=K+1 ELSE SOUND10,5:PRINT"JE R 

EGRETTE; VOUS RVEZ TORT ! " :PRINT: 

PR INT V* ( 2 > ; TAB ( 1 5 ) V$ ( 5 ) : PR INTV* ( 

3) jTAP,(15)V$(6) :PRINTV$(4) ;TAB(1 

5>V$<7) 

210 PRINT sPRINT: PR I NT" PRESSI ONE 

QQ TECLfl P/ CONTINURR" 



220 JW$=:INKEY$::IFJW$ = ""THEN220EL 

SECLS8 

230 NEXTX 

240 IF K<14 THEN GOTO290 

250 FORQQ=1TO2:SOUND89,4:SOUND10 

8,4:S0UND125,4:S0UND89,4:NEXTQQ 

260 F0RQQ=1T02:S0UND12S,4:50UND1 

33 , 4 :: SOUND! 47 . 8 : NEXTQQ 

270 F0RQQ=1T02:SGUND147,2:S0UND1 

59,2: S0UND1 47,2: S0UND1 33 , 2 : SOUND 

1 25 , 4 : S0UND89 , 4 : NEXTQQ 

280 F0RQQ=1 T02 : S0UND89 , 4 : S0UND32 

,4:S0UND89,8:NEXTQQ 

290 PRINT"C'EST TOUT! ":PRINTK?" 

D'ENTRE 15 SONT CORRECTS" 
300 END 

310 DRTRRCHETER,J'RCHETE,TU RCHE 
TES,IL RCHETE,NOUS RCHETONS, VOUS 

RCHETEZ,ILS RCHETENT 
320 DRTRRIDER,J'RIDE,TU RIDES, IL 

RIDE, NOUS RIDONS,VOUS RIDEZ,ILS 

RIDENT 
330 DATAANNONCERrJ'ANNONCE,TU RN 
NONCES, IL RNNONCErNOUS HNNONCONS 
,VOUS RNNONCEZ,ILS RNNONCENT 
340 DRTRRPPELER, J'RPPELLE,TU RPP 
ELLESrIL RPPELLE,NOUS APPELONSr V 
OUS RPPELEZ,1LS RPPELLENT 
350 DRTRRPPROCHER , J ' APPROCHE , TU 
RPPROCHES,IL RPPROCHE, NOUS RPPRO 
CHONS,VOUS RPPROCHEZ,ILS RPPROCH 
ENT 

360 DATAARRETER,J'RRRETE,TU RRRE 
TES,IL RRRETE,NOUS RRRETONS , VOUS 

RRRETEZ,ILS RRRETENT 
370 DHTRBROSSERrJE BROSSE,TU BRO 
SSES,IL BROSSE,NOUS BROSSONS,VOU 
S BROSSEZ,ILS BROSSENT ■ 
380 DRTRCRCHER,JE CACHE, TU CACHE 
S,IL CACHE, NOUS CRCHONS,VOUS CAC 

HEZ,II_S CRCHENT 



GERACAO PROLOGICA 



390 DATACASSER,JE CRSSEfTU CRSSE 
SfIL CRSSEfNOUS CRSSONSfVOUS CAS 
SEZ,ILS CRSSENT 

400 DATACHRNTER,JE CHANTE,TU CHR 
NTESrIL CHRNTErNOUS CHANTONS , VOL) 
S CHANTEZfILS CHANTENT 
410 DATACHERCHER, JE CHERCHEfTIJ C 
HERCHESfIL CHERCHEfNOUS CHERCHON 
S,VOUS CHERCHEZrILS CHERCHENT 
420 DATACOMMANDERfJE COMMANDEfTU 
COMMANDESfIL COMMANDEfNOUS COMM 

RNDONSfVOUS commandez,ils commrn 

DENT 

430 DflTflCOMMENCER,JE COMMENCEfTU 
COMMENCES, IL COMMENCE, NOUS COMM 
ENCONSfVOUS COMMENCEZfILS COMMEN 
CENT 

4M0 DRTRCONNRITREfJE CONNRISfTU 
CONNRISfIL CONNRITfNOUS connriss 
ONS,VOUS CONNRISSEZfILS connriss 
ENT 

450 DRTRCOUCHER,JE COUCHEfTU cou 
CHESfIL COUCHEfNOUS COUCHONSfVOU 
S COUCHEZ,ILS couchent 
460 DRTRCROIREfJE CROISfTU CROSS 
»IL CROITfNOUS CROYONSfVOUS croy 

ez,ils croient 

470 DRTRDRNSERfJE drnse,tu drnse 
SfIL drnse, nous drnsons,uous dan 
sez,ils drnsent 

480 DRTRDESCENDRE, JE DESCENDSfTU 

descends, il descend, nous descen 

DONSfVOUS DESCENDEZfILS descende 

NT 

490 DRTRDEVENIRfJE DEVIENSfTU de 

VIENSfIL DEVIENTfNOUS DEVENONSfU 

OUS DEVENEZfILS deviennent 

500 DRTRDIREfJE DISfTU DISfIL di 

TfNOUS DISONSfVOUS dites,ils dis 

ENT 

510 DRTREMPRUNTER , J ' EMPRUNTE , TU 

EMPRUNTESfIL EMPRUNTE, NOUS EMPRU 

NTQNSfVOUS EMPRUNTEZfILS EMPRUNT 

ENT 

520 DRTRENDORMIRfJ'ENDORSfTU end 

ORS,IL ENDORTfNOUS ENDORMONSfVOU 

S ENOORMEZfILS endorment 

530 DRTRESPERERfJ'ESPEREfTU espe 

RESfIL ESPEREfNOUS ESPERONSfVOUS 

ESPEREZfILS esperent 
5M0 DRTRESSRYERfJ'ESSRIEfTU essr 
IESfIL ESSRIE,NOUS ESSRYUNSfYOUS 

ESSRYEZfILS essrient 
550 DRTRESSUYER,J'ESSUIE,TU ESSU 
IESfIL ESSUIEfNOUS ESSUYONS , YOUS 

ESSUYEZ,ILS ESSUIENT 
560 DRTRHRBILLERfJ'HRBILLEfTU hr 
BILLESML HRBILLE, NOUS HABILLON 



SfVOUS HRBILLEZfILS HRBILLENT 
570 DATAINVITER,J'INVITE,TU INVI 
TES,IL INVITEfNOUS INVITONSfVOUS 

INVITEZfILS inuitent 
580 DRTRJETERfJE jette.tu jettes 
fIL JETTE,NOUS JETTONS, VOUS JETT 

EZfILS jettent 

590 drtrlrisser,je lrisse,tu lai 

SSESfIL LRISSEfNOUS LRISSONSfVOU 

S LRISSEZ,ILS LRISSENT 

600 DRTALAUER,JE LRVEfTU LRVES,I 

L LRUE,NOUS LAVONS,VOUS LAVEZ,IL 

S LRUENT 

610 DRTRLIREfJE LIS,TU LIS, IL L 

IT, NOUS LISONS,VOUS LISEZ,ILS LI 

SENT 

620 DRTRMRNGERfJE MRN6E,TU MRNGE 

S,IL MRNGEfNOUS MRNGEONSfVOUS MR 

NGEZ,ILS mrngent 

630 DRTRMONTER,JE MONTE, TU MONTE 

SfIL MONTE f NOUS MONTONSfVOUS MON 

tez,ils montent 

640 DRTR MOURIR,JE MEURSfTU MEUR 
S,IL MEURT,NOUS MOURONSfVOUS MOU 

rez,ils meurent 

650 DRTRNRGERfJE NRGEfTU NRGESfI 

L NRGEfNOUS NRGEONSfVOUS NRGEZfI 

LS NRGENT 

660 DRTRNRITRE,JE NRISfTU NRISfI 

L NflIT,NOUS NAISSONSfUOUS NRISSE 

ZfILS NRISSENT 

670 DRTRNETTOYER,JE NETTOIEfTU N 

ETTOIESfIL nettoie,nous nettoyon 
S,VOUS NETTOYEZfILS nettoient 
680 DRTR OFFRIR,JE OEFREfTU OFFR 
ES,IL OFFREfNOUS OFFRONSfVOUS of 
FREZfILS offrent 
690 DRTRORGRNISERfJE ORGANISE, TU 

ORGANISES, IL ORGANISE , NOUS ORGA 
NISONSfVOUS ORGANISEZ,ILS ORGANI 
SENT 

700 DATAOUBLIERfJ'OUBLIEfTU OUBL 
IESfIL OUBLIE,NOUS OUBLIONSf VOUS 

OUBLIEZfILS oublient 
710 DATAPASSER,JE PASSE, TU PASSE 
SfIL PASSE, NOUS PRSSONSfVOUS PAS 
SEZ,ILS PASSENT 

720 DRTAPEIGNERfJE PEIGNEfTU PEI 
GNESfIL PEIGNEfNOUS PEIGNONSfVOLJ 
S PEIGNEZrILS PEIGNENT 
730 DATAPERMETTRE, JE PERMETS,TU 
PERMETSfIL PERMETfNOUS PERMETTON 
SfVOUS PERMETTEZfILS pfrmettent 
740 DATAPREFERERfJE PREFEREfTU p 

referes,il prefere,nous preferon 
S,VOUS PREFEREZfILS preferent 
750 DATAPRETERfJE PRETEfTU prete 
SfIL PRETE f NOUS PRETONSfVOUS PRE 
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TEZ,ILS PRETENT 

760 DATA PROMENER,JE PROMENE,TU 
PROMENES,IL PROMENE,NOUS PROMENO 
NS,VOUS PROMENEZ,ILS PROMENENT 
770 DATAPROMETTRE,JE PROMETS,TU 
PROMETS,IL PROMET,NOUS PROMETTON 
S,VOUS PROMETTEZrlLS PROHETTENT 



780 DATAPRONONCER,JE PRONONCE,TU 

PRONONCES,IL PRONONCE, NOUS PRON 

ONCONS,VOUS PRONONCEZ,ILS PRONON 
CENT 

790 DATAQUITTER,JE QUITTE,TU QUI 
TTES,IL QUITTErNOUS QUITTONS,VOU 
S QUITTEZ,ILS "QUITTENT 



. 



PROGRAMA N? 3 — ANTONIMOS 



10 ' X X -X- X- * * X X X X X X X X X X X X X XXX X X X X X X 

20 '* FRANCES * 

30 '* CP 400 COLOR x 
40 'x CP-COMPUTRDORES PESSORIS x 

50 'XXX X X X X X X X X X X X X X X X X X X X X X X X X X 

60 CLSsflN=79:DIMflfl(RN) :FORfl=lTO.t 

l:BL$=BL$+CHR$(128):NEXTR:FORfl=0 

T0488STEP32 : PR INT(?R , BL$ ; : NEXTfl s F 

0RA=1.T06:GB$=GB*+CHR$(128):NEXTA 

70 F0RA=1T0481STEP32:PRINT(DA,CHR 

S<255> j:PRiNTen+7»CHR«(255> j:NEX 

TA:F0RA=1T06:0$^0$+CHR$<255) :NEX 

TA:PRINT@2,0$;:F0RA=386T0482STEP 

32:PRINTGA,0$; :NEXTR 

80 PRINT(?388,CHR$(254)+CHR$(253) 

?:PRINT<a420,CHR$(242)+CHR$(241); 

90 Y1$=CHR$(156)+CHR$(157)+CHR$( 

159 ) +CHR* ( 159 ) +CHR$ ( 159 ) +CHR* ( 1 5 

9) :Y2$=CHR$(128)+CHR$(128)+CHR$( 

128)+CHR$(156)+CHR$(157)+CHR$<15 

9) :PRINT(334,Y1*; :PRINT(§66,Y2$; 

100 PRINT^16,"GUILH0TINR"? :PRINT 

<?76,"DAR RNTONIMO DE:"; 

110 PRINT<?395," TOTAL DE 20 QUES 

TOES"; 

120 PRINT<a430,"CORRETRS";: PRINTS 

462,"INC0RRETRS"; 

130 P0b3M 

140 FORJU=1TO20 

150 RESTORE 

160 R=RND(RN) 

170 IFRR(R)=1THEN160ELSERR(R)=1 

180 FORC=lTOR:RERDR$,B*:NEXTC 

190 ONRND(2)GOTO200,220 

200 PRINT(?139,A$; :PRINT(1171 , "" J s 

INPUTAN$:IFAN$=B$THENNC=NC+1ELSE 

PRINTG235»"ERRAD0r0 CERTO E'-"?s 

PRINT<3268,B*;:::GOTO240 

210 SOUND150,2:GOTO250 

220 PRINTei39rB$y:PRINT@171r"";: 

INPUTAN$:IFAN$=A$THENNC=NC+1ELSE 

PRINTQ235,"ERRRD0,0 CERTO E'-";: 

PRINT(1268,A$; :GQTO240 

230 SOUND150,2:GOTO250 

240 SOUND5,1:FORA=34TO290STEP32: 

PRINTER, GB$; :PRINTGA+32,Y1$; :PRI 



NTGA+64*Y2$; :F0RTI=1T05: NEXTTI s N 

EXTR : PRINT<3322 , GB$ j : PRINT0354 , GB 

$;sFORTI = J.TO800.-:NEXTTI:PRINT(a3L4, 

Y1*;:PRINT(366,Y2$; 

250 UIO*>=" "r,F 

0RA=139T0267STEP32 : PRINTER, WO$p: 

NEXTA:PRINTG440,NC;:PRINTGi*72rJW 

-NCjrNEXTJW 

260 IFJW-NC=20THENPRINT(?366,CHR* 

<34) ;"NENHUMA CERTR" ; CHR$ ( 34 ) ; : F 

ORT=l TO300:NEXTT:GOTO 280 

270 GOTO 290 

280 PRINT<a396,"TRLVEZ 

"; :PRINT($428,"NR PROXIMR VEZ 
! ! !","::PRINT0!459," 

";:FORT=1TO500:NEXTT:END 
290 IF NC=20 THEN CLS ELSE320 
300 PRINT(3198,"P R R R B E N S" : 
FORT- 1 TO100 : NEXT s CLS : V«V + i 
310 IF V>3 THEN END ELSE 300 
320 PRINTG2A8r"*** SEIJ PLRCRR ** 
*" =FORT=1TO300:NEXTT:END 
330 DRTR ABSENT, PRESENT 

ACCEPTER, REFUSER 
flCHETER,VENDRE 

RLLER,VENIR 
L'RMI,L'ENNEMI 

ANCIENrMODERNE 

RRRIVER,PRRTIR 

L'RUTOMNE,LE PRINTEMPS 

AVANTrAPRES 

AVECSANS 

BAS,HAUT 

BEAU, LAID 

BEAUCOUPrPEU 

BIENrMAL 

LE BRUIT,LE SILENCE 

CHAUD,FR01D 

CHER, BON MRRCHE 

LE COMMENCEMENT, LR FIN 

COMMENCER,FINIR 

COURT, LONG 

DEBOUT,RSSIS 

DEMRNDER , REPONDRE 

DEVANT,DERRJERE 

DROIT, GAUCHE 



340 


DATA 


350 


DATA 


360 


DATA 


370 


DATA 


380 


DATA 


390 


DATA 


400 


DATA 


410 


DATA 


420 


DATA 


430 


DATA 


440 


DATA 


450 


DATA 


M60 


DATR 


470 


DRTR 


M80 


DRTR 


490 


DRTR 


500 


DRTR 


510 


DRTR 


520 


DRTR 


530 


DRTR 


540 


DRTR 


550 


DATA 


560 


DATA 
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570 


DRTR 


EMPRUNTER,PRETER 


840 


DRTR 


580 


DRTR 


ENTRER,SORTIR 


850 


DRTR 


590 


DRTR 


L'EST,L'OUEST 


860 


DRTR 


600 


DRTR 


L'ETE.L'HIVER 


870 


DRTR 


610 


DRTR 


FACILE, DIFFICILE 


880 


DRTR 


620 


•DRTR 


FERMER,OUORIR 


890 


DRTR 


630 


DRTR 


FORTrFRlBLE 


900 


DRTR 


640 


DRTR 


LE GARCON,LA JEUNE FTLL 


910 


DRTR 


E 






920 


DRTR 


650 


DRTR 


GRAND, PET IT 


930 


DRTR 


660 


DRTR 


LR GUERRErLfl PRIX 


940 


DRTR 


670 


DRTR 


HEUREUXrTRISTE 


950 


DRTR 


680 


DRTR 


HEIR,D£MAIN 


960 


DRTR 


690 


DRTR 


L' HOMME, LR FEMME 


970 


DRTR 


700 


DRTR 


ICI,LA 


980 


DRTR 


710 


DRTR 


LR JEUNESSE,LA VIEILLES 


990 


DRTR 


SET 






1000 


DRTR 


720 


DRTR 


JQUER,TRRVAILLER 


1010 


DRTR 


730 


DRTR 


LE JOUR, LA NUIT 


1020 


DRTR 


740 


DRTR 


LARGE, ETROIT 


1030 


DRTR 


750 


DRTR 


LEGER,LOURD 


1040 


DRTR 


760 


DRTR 


LE LENDEMAIN,LA VEILLE 


J 050 


DRTR 


770 


DRTR 


LE MAR I, LA FEMME 


1060 


DRTR 


780 


DRTR 


MIDI»MINUIT 


1070 


DRTR 


790 


DRTR 


MONTER»DESCENDRE 


1080 


DRTR 


800 


DRTR 


NE,MORT 


1090 


DRTR 


810 


DRTR 


LE NORDrLE SUD 


1100 


DRTR 


820 


DRTR 


OBEIR,DESOBEIR 


1110 


DRTR 


830 


DRTR 


OTER,METTRE 







parritre,disprrritre 

prresseux»trrvrilleur 

pauvre,riche 

le plancher,le plafond 

plei:n,uide 

pleurer,rire 

plus,moins 

poli,impoli 

possible, impossible 

premier, dernier 

pres de,loin de 

propre,srle 

quelque chose, rien 

quelqu'um,personne 

la question, la rfponse 

reussir,echouer 

le roi.la reine 

S'Rf-IUSERrS'ENNUYER 

LE SOLEIL»LR LUNE 

SGUVENT,RAREMENT 

SUR,SOUS 

UTILE, INUTILE 

LR VIE, LA MORT 

LR VILLE,LR CRMPRGNE 

VITErLENTEMENT 

VIVRErMOURIR 

UOICIfVOILfl 

VRRIrFRUX 



EDUGACIONAL 

Trinomio do 2.° GRAU 



CP 200-16 Kb RAM 



PARTE II 



No niimero anterior, puhlicamos a seior cducacional. Agora, voce pode- 

primeira pane do programs Trinomio ra completar sua listagerri em Basic e 

do 2? Grau — urn eficiente instrumen- transformar seu CP 200 num eficien- 

to para a introducao a informatica no te professor de matemaiica. 



560 PRINT AT 21,4;"DESEJR CONTINUR 

R (S/N)? " 

570 INPUT R* 

580 IF R$="S" THEN GOTO 140 

590 STOP 

600 CLS 

610 PRINT RT 6, A?" NRO E POSSIVEL 

FRTORRR " 

620 PRINT RT 8,9;" ESTE TRINOMIO " 

630 PRINT RT 10, A;" POIS DELTA E 

NEGRTIVO " 
640 RETURN 



650 PRINT RT 19 , 16; A; " . ( X" ;-Xi ; " ) . 

(X";-X2;" )" 

660 RETURN 

670 PRINT RT 19 , 16 ;R ; " . ( X " ;-Xl *, " ) . 

<x+" ;-X2;" )" 
630 RETURN 

690 PRINT RT 19 , 16; R; " - ( x+" ;-xi ; " ) 
.(X";-X2;")" 

700 RETURN 

710 PRINT RT 19,16;fl;".(X+";-Xl;"> 

. <X+";-X2;" )" 

720 RETURN 



B 
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